* $$ JOB JNM=$SBA,CLASS=0                                               00000001
* $$ LST CLASS=P                                                        00000002
// JOB $SBA        MACRO FOR VSEDIT                                     00000003
// OPTION LOG                                                           00000004
// EXEC LIBR,PARM='MSHP;ACC S=PRD2.BTAM'                                00000005
 CATAL $SBA.A     REP=YES                                               00000006
         MACRO                                                          00000007
&NAME    $SBA                                                           00000008
         GBLB  &SET                                                     00000009
         GBLC  &SBA(64)                                                 00000010
         LCLA  &INDEX1,&INDEX2                                          00000011
         LCLA  &RC                                                      00000012
         LCLC  &R,&C,&ATRIB                                             00000013
         LCLC  &SBA1,&SBA2                                              00000014
         AIF   (&SET).GEN                                               00000015
&SBA(01) SETC  '40'                                                     00000016
&SBA(02) SETC  'C1'                                                     00000017
&SBA(03) SETC  'C2'                                                     00000018
&SBA(04) SETC  'C3'                                                     00000019
&SBA(05) SETC  'C4'                                                     00000020
&SBA(06) SETC  'C5'                                                     00000021
&SBA(07) SETC  'C6'                                                     00000022
&SBA(08) SETC  'C7'                                                     00000023
&SBA(09) SETC  'C8'                                                     00000024
&SBA(10) SETC  'C9'                                                     00000025
&SBA(11) SETC  '4A'                                                     00000026
&SBA(12) SETC  '4B'                                                     00000027
&SBA(13) SETC  '4C'                                                     00000028
&SBA(14) SETC  '4D'                                                     00000029
&SBA(15) SETC  '4E'                                                     00000030
&SBA(16) SETC  '4F'                                                     00000031
&SBA(17) SETC  '50'                                                     00000032
&SBA(18) SETC  'D1'                                                     00000033
&SBA(19) SETC  'D2'                                                     00000034
&SBA(20) SETC  'D3'                                                     00000035
&SBA(21) SETC  'D4'                                                     00000036
&SBA(22) SETC  'D5'                                                     00000037
&SBA(23) SETC  'D6'                                                     00000038
&SBA(24) SETC  'D7'                                                     00000039
&SBA(25) SETC  'D8'                                                     00000040
&SBA(26) SETC  'D9'                                                     00000041
&SBA(27) SETC  '5A'                                                     00000042
&SBA(28) SETC  '5B'                                                     00000043
&SBA(29) SETC  '5C'                                                     00000044
&SBA(30) SETC  '5D'                                                     00000045
&SBA(31) SETC  '5E'                                                     00000046
&SBA(32) SETC  '5F'                                                     00000047
&SBA(33) SETC  '60'                                                     00000048
&SBA(34) SETC  '61'                                                     00000049
&SBA(35) SETC  'E2'                                                     00000050
&SBA(36) SETC  'E3'                                                     00000051
&SBA(37) SETC  'E4'                                                     00000052
&SBA(38) SETC  'E5'                                                     00000053
&SBA(39) SETC  'E6'                                                     00000054
&SBA(40) SETC  'E7'                                                     00000055
&SBA(41) SETC  'E8'                                                     00000056
&SBA(42) SETC  'E9'                                                     00000057
&SBA(43) SETC  '6A'                                                     00000058
&SBA(44) SETC  '6B'                                                     00000059
&SBA(45) SETC  '6C'                                                     00000060
&SBA(46) SETC  '6D'                                                     00000061
&SBA(47) SETC  '6E'                                                     00000062
&SBA(48) SETC  '6F'                                                     00000063
&SBA(49) SETC  'F0'                                                     00000064
&SBA(50) SETC  'F1'                                                     00000065
&SBA(51) SETC  'F2'                                                     00000066
&SBA(52) SETC  'F3'                                                     00000067
&SBA(53) SETC  'F4'                                                     00000068
&SBA(54) SETC  'F5'                                                     00000069
&SBA(55) SETC  'F6'                                                     00000070
&SBA(56) SETC  'F7'                                                     00000071
&SBA(57) SETC  'F8'                                                     00000072
&SBA(58) SETC  'F9'                                                     00000073
&SBA(59) SETC  '7A'                                                     00000074
&SBA(60) SETC  '7B'                                                     00000075
&SBA(61) SETC  '7C'                                                     00000076
&SBA(62) SETC  '7D'                                                     00000077
&SBA(63) SETC  '7E'                                                     00000078
&SBA(64) SETC  '7F'                                                     00000079
&SET     SETB  (1)                                                      00000080
.GEN     ANOP  ,                                                        00000081
&R       SETC  '&SYSLIST(1,1)'                                          00000082
&C       SETC  '&SYSLIST(1,2)'                                          00000083
&ATRIB   SETC  '&SYSLIST(1,3)'                                          00000084
&RC      SETA  ((&R-1)*80)+(&C-1)                                       00000085
&INDEX1  SETA  (&RC/64+1)                                               00000086
&SBA1    SETC  '&SBA(&INDEX1)'                                          00000087
&INDEX2  SETA  (&RC-((&INDEX1-1)*64)+1)                                 00000088
&SBA2    SETC  '&SBA(&INDEX2)'                                          00000089
         AIF   ('&ATRIB' EQ 'B').BRIGHT                                 00000090
         AIF   ('&ATRIB' EQ 'N').NORMAL                                 00000091
         AIF   ('&ATRIB' EQ 'U').UNPROT                                 00000092
         AIF   ('&ATRIB' EQ 'UB').UNPBRI                                00000093
         DC    X'11&SBA1&SBA2'         SIN ATRIBUTO                     00000094
         MEXIT ,                                                        00000095
.NORMAL  ANOP                                                           00000096
         DC    X'11&SBA1&SBA2',X'1DF0' START FIELD,PROT SKIP NORMAL     00000097
         MEXIT ,                                                        00000098
.BRIGHT  ANOP                                                           00000099
         DC    X'11&SBA1&SBA2',X'1DF8' START FIELD,PROT SKIP BRIGHT     00000100
         MEXIT ,                                                        00000101
.UNPROT  ANOP                                                           00000102
         DC    X'11&SBA1&SBA2',X'1D40' START FIELD,UNPROT NORMAL        00000103
         MEXIT ,                                                        00000104
.UNPBRI  ANOP                                                           00000105
         DC    X'11&SBA1&SBA2',X'1DC8' START FIELD,UNPROT BRIGHT        00000106
         MEXIT ,                                                        00000107
         MEND                                                           00000108
/+                                                                      00000109
/*                                                                      00000110
/&                                                                      00000111
* $$ EOJ                                                                00000112
