TITLE 'IEFSD161-JOB SELECTION *00001000 ' 00002000 IEFSD061 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(24) 0001 00007000 DC C'IEFSD061 77270 UZ14651 ' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 LR @03,@01 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @11,@01 0001 00016000 USING @DATD,@11 0001 00017000 LR @01,@03 0001 00018000 MVC @PC00001(4),0(@01) 0001 00019000 JSCBDISP EQU 188 00020000 JSCBAOS1 EQU 72 00021000 JSCBAOS2 EQU 192 00022000 * THE FIRST SCT OF JOB FOR USE 00023000 * BY SRM @Z40BPPJ*/ 00024000 * LOOPSWCH=ON; /* INITIALIZE LOOP SWITCH TO NON 00025000 * ZERO */ 00026000 MVC LOOPSWCH(4),ON 0134 00027000 * RESPECIFY 0135 00028000 * R1 RSTD; 0135 00029000 * LCTPTR=R1; /* ADDRESSABILITY FOR THE LCT */ 00030000 LR LCTPTR,R1 0136 00031000 * SAVEREGS=ADDR(REGSAVE); /* SET UP REG SAVE AREA */ 00032000 LA SAVEREGS,REGSAVE(,LCTPTR) 0137 00033000 *JOBSELCT: 0138 00034000 * RESPECIFY 0138 00035000 * R1 UNRSTD; 0138 00036000 * 0138 00037000 JOBSELCT DS 0H 0139 00038000 * /*****************************************************************/ 00039000 * /* */ 00040000 * /* THE FOLLOWING SECTION OF CODE CHECKS THE INTERNAL STOP */ 00041000 * /* INDICATOR TO DETERMINE IF ITS BEING ENTERED FOR STOP */ 00042000 * /* PROCESSING. IF IT IS BEING ENTERED FOR STOP PROCESSING,IT */ 00043000 * /* FREES THE SSOB HEADER AND THE SSIB. IF A STAE EXIT PARAMETER */ 00044000 * /* LIST EXISTS IT FREES THAT ALSO, THEN IT FREES THE LCT AND */ 00045000 * /* TAKES THE EXIT */ 00046000 * /* */ 00047000 * /*****************************************************************/ 00048000 * 0139 00049000 * DO WHILE LOOPSWCH=ON; /* DO UNTIL A JOB IS SELECTED OR 00050000 * THE EXIT IS TAKEN */ 00051000 B @DE00139 0139 00052000 @DL00139 DS 0H 0140 00053000 * IF LCTSTOP='1'B THEN 0140 00054000 TM LCTSTOP(LCTPTR),B'00000100' 0140 00055000 BNO @RF00140 0140 00056000 * DO; /* IF BEING ENTERED FOR INTERNAL 00057000 * STOP PROCESSING, FREE THE 0141 00058000 * SSOB,SSIB STEPL IF ONE 0141 00059000 * EXISTS,CANCEL STAE AND TAKE 0141 00060000 * EXIT */ 00061000 * RESPECIFY 0142 00062000 * (R0, 0142 00063000 * COREPTR) RSTD; 0142 00064000 * IF LCTONEJF='0'B THEN 0143 00065000 TM LCTONEJF(LCTPTR),B'00000100' 0143 00066000 BNZ @RF00143 0143 00067000 * DO; /* IF THIS IS AN INITIATOR, FREE 00068000 * THE SSOB AND SSIB */ 00069000 * R0=LENGTH(SSIB); /* GET THE LENGTH OF THE SSIB */ 00070000 LA R0,36 0145 00071000 * R0=R0|COREPOOL; /* PUT IN THE SUBPOOL NUMBER */ 00072000 O R0,COREPOOL 0146 00073000 * COREPTR=SSOBSSIB; /* PUT THE SSIB PTR IN REG 1 */ 00074000 L @10,LCTSSOBA(,LCTPTR) 0147 00075000 L COREPTR,SSOBSSIB(,@10) 0147 00076000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE THE SSIB */ 00077000 FREEMAIN R,LV=(0),A=(1) 00078000 * R0=LENGTH(SSOB); /* GET THE LENGTH OF THE SSOB */ 00079000 LA R0,20 0149 00080000 * R0=R0|COREPOOL; /* PUT IN THE SUBPOOL NUMBER */ 00081000 O R0,COREPOOL 0150 00082000 * COREPTR=LCTSSOBA; /* GET THE SSOB PTR */ 00083000 L COREPTR,LCTSSOBA(,LCTPTR) 0151 00084000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE THE SSOB */ 00085000 FREEMAIN R,LV=(0),A=(1) 00086000 * END; 0153 00087000 * IF LCTSTEPL^=0 THEN 0154 00088000 @RF00143 ICM @10,15,LCTSTEPL(LCTPTR) 0154 00089000 BZ @RF00154 0154 00090000 * DO; /* IF THERE EXISTS A STAE EXIT 0155 00091000 * PARAMETER LIST, FREE IT */ 00092000 * GEN(ESTAE 0); /* CANCEL ESTAE */ 00093000 ESTAE 0 00094000 * R0=LENGTH(STEPL); /* GET LENGTH OF STEPL */ 00095000 LA R0,16 0157 00096000 * R0=R0|COREPOOL; /* PUT IN THE SUBPOOL NO. */ 00097000 O R0,COREPOOL 0158 00098000 * COREPTR=LCTSTEPL; /* PUT STEPL ADDR IN REG 1 */ 00099000 L COREPTR,LCTSTEPL(,LCTPTR) 0159 00100000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE THE STEPL */ 00101000 FREEMAIN R,LV=(0),A=(1) 00102000 * END; 0161 00103000 * RESPECIFY 0162 00104000 * (IELPTR, 0162 00105000 * RTNREG) RSTD; 0162 00106000 @RF00154 DS 0H 0163 00107000 * IELPTR=LCTENTR; /* SAVE ADDR OF THE IEL */ 00108000 L IELPTR,LCTENTR(,LCTPTR) 0163 00109000 * RTNREG=LCTRTRN; /* SAVE THE RETURN ADDRESS */ 00110000 L RTNREG,LCTRTRN(,LCTPTR) 0164 00111000 * SUBPNO=JSCBSWSP; /* SUBPOOL FOR THE LCT */ 00112000 L @15,LCTTCBAD(,LCTPTR) 0165 00113000 L @15,TCBJSCB(,@15) 0165 00114000 MVC SUBPNO(1),JSCBSWSP(@15) 0165 00115000 * CORELNG=LENGTH(LCT); /* GET THE LENGTH OF THE LCT */ 00116000 * 0166 00117000 MVC CORELNG(3),@CF02695+1 0166 00118000 * /***********************************************************/ 00119000 * /* */ 00120000 * /* THE MODESET IS ISSUED FOR THE FREEMAIN OF THE LCT SINCE */ 00121000 * /* IT WAS GOTTEN IN KEY 1 */ 00122000 * /* */ 00123000 * /***********************************************************/ 00124000 * 0167 00125000 * GEN(MODESET EXTKEY=SCHED);/* GET PSW KEY 1 YM02391*/ 00126000 MODESET EXTKEY=SCHED 00127000 * R0=SUBPOOOL; /* PUT SUBPOOL # AND CORE LENGTH 00128000 * IN R0 */ 00129000 L R0,SUBPOOOL 0168 00130000 * COREPTR=LCTPTR; /* PUT THE LCT ADDR IN REG 1 */ 00131000 LR COREPTR,LCTPTR 0169 00132000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE THE LCT */ 00133000 FREEMAIN R,LV=(0),A=(1) 00134000 * COREPTR=IELPTR; /* SAVE IEL PTR IN REG 1 */ 00135000 LR COREPTR,IELPTR 0171 00136000 * GEN(MODESET EXTKEY=SUPR); /* GET PSW KEY 0 YM02391*/ 00137000 * 0172 00138000 MODESET EXTKEY=SUPR 00139000 * /***********************************************************/ 00140000 * /* */ 00141000 * /* THE FOLLOWING SECTION OF CODE IS A GENERALIZED */ 00142000 * /* SUBROUTINE TO HANDLE ALL POST TERMINATION INITIATOR */ 00143000 * /* EXITS NOTE- END OF TASK FREES THE CORE GOTTEN FOR DATA */ 00144000 * /* AREAS UPON ENTRY TO THIS MODULE */ 00145000 * /* */ 00146000 * /***********************************************************/ 00147000 * 0173 00148000 * IF IELEXIT>0 THEN 0173 00149000 L @15,IELEXIT(,IELPTR) 0173 00150000 LTR @15,@15 0173 00151000 BNP @RF00173 0173 00152000 * DO; /* IF AN EXIT LIST EXISTS 0174 00153000 * DETERMINE WHICH TYPE OF EXIT 00154000 * TO TAKE */ 00155000 * RESPECIFY 0175 00156000 * EXITPTR RSTD; 0175 00157000 * EXITSAVE=IELEXIT+IELXTLEN-8;/* GET ADDR OF FIRST ENTRY 00158000 * -8 */ 00159000 LH EXITSAVE,IELXTLEN(,@15) 0176 00160000 ALR EXITSAVE,@15 0176 00161000 SH EXITSAVE,@CH00062 0176 00162000 * EXITPTR=IELEXIT; /* GET ADDR OF EXIT LIST */ 00163000 LR EXITPTR,@15 0177 00164000 * RESPECIFY 0178 00165000 * IELEXITS BASED(EXITPTR); 0178 00166000 * DO WHILE EXITPTRJESQMGR; 0566 01569000 L @10,CVTPTR 0566 01570000 L @10,CVTJESCT(,@10) 0566 01571000 L SWAMGPTR,JESQMGR(,@10) 0566 01572000 * GEN(BALR 14,15); /* GO TO SWA MANAGER */ 01573000 BALR 14,15 01574000 * END; 0568 01575000 @EL00002 DS 0H 0568 01576000 @EF00002 DS 0H 0568 01577000 @ER00002 LM @14,@12,@SA00002 0568 01578000 BR @14 0568 01579000 *REENQJOB: 0569 01580000 * PROC; /* Y02651*/ 01581000 * 0569 01582000 REENQJOB STM @14,@12,@SA00003 0569 01583000 * /*****************************************************************/ 01584000 * /* */ 01585000 * /* ENQUEUE THE JOB ON THE HOLD QUEUE, FREE THE JOB'S CONTROL */ 01586000 * /* BLOCKS, AND PROCESS RETURN CODES FROM SSREQ. Y02651*/ 01587000 * /* */ 01588000 * /*****************************************************************/ 01589000 * 0570 01590000 * RESPECIFY 0570 01591000 * (R0, 0570 01592000 * R1) RSTD; /* Y02651*/ 01593000 * R0=LENGTH(SSRQ); /* LENGTH OF RE-ENQ SSOB 0571 01594000 * FUNCTIONAL */ 01595000 LA R0,8 0571 01596000 * R0=R0|COREPOOL; /* PUT IN THE SUBPOOL NO. */ 01597000 O R0,COREPOOL 0572 01598000 * GEN(GETMAIN R,LV=(0)); /* GET CORE FOR THE RE-ENQ 0573 01599000 * FUNCTIONAL */ 01600000 GETMAIN R,LV=(0) 01601000 * SSOBINDV=R1; /* PUT ADDR OF FUNCTIONAL IN SSOB 01602000 * HDR */ 01603000 L @14,LCTSSOBA(,LCTPTR) 0574 01604000 ST R1,SSOBINDV(,@14) 0574 01605000 * SSRQ=''B; /* ZERO THE RE-ENQ FUNCTIONAL 0575 01606000 * SECTION */ 01607000 L @10,LCTSSOBA(,LCTPTR) 0575 01608000 L @10,SSOBINDV(,@10) 0575 01609000 XC SSRQ(8,@10),SSRQ(@10) 0575 01610000 * SSRQLEN=LENGTH(SSRQ); /* LENGTH OF THE FUNCTIONAL 0576 01611000 * SECTION */ 01612000 MVC SSRQLEN(2,@10),@CH00062 0576 01613000 * SSRQSTEP=SCTSNUMB; /* PUT IN THE STEP NO. */ 01614000 L @03,LCTSCTAD(,LCTPTR) 0577 01615000 SLR @09,@09 0577 01616000 IC @09,SCTSNUMB(,@03) 0577 01617000 STH @09,SSRQSTEP(,@10) 0577 01618000 * SSRQHOLD='1'B; /* INDICATE THE JOB IS TO BE PUT 01619000 * ON THE HOLD-0 */ 01620000 OI SSRQHOLD(@10),B'00010000' 0578 01621000 * SSOBFUNC=SSOBRENQ; /* SET THE RE-ENQ FUNCTION CODE */ 01622000 MVC SSOBFUNC(2,@14),@CH01879 0579 01623000 * SSOBPNTR=LCTSSOBA; /* PUT THE ADDR OF THE SSOB IN 0580 01624000 * THE PARM LIST */ 01625000 ST @14,SSOBPNTR 0580 01626000 * ENDLIST='1'B; /* SET END OF LIST INDICATOR */ 01627000 OI ENDLIST,B'10000000' 0581 01628000 * R1=ADDR(PARMLST); /* PUT THE PARMLIST ADDR IN REG 1*/ 01629000 LA R1,PARMLST 0582 01630000 * CALL SSREQ; /* GO ENQ THE JOB ON THE HOLD Q */ 01631000 L @10,CVTPTR 0583 01632000 L @10,CVTJESCT(,@10) 0583 01633000 L @15,JESSSREQ(,@10) 0583 01634000 BALR @14,@15 0583 01635000 * RESPECIFY 0584 01636000 * CODEREGG RSTD; 0584 01637000 * CODESAVE=CODEREGG; /* SAVE RETURN CODE */ 01638000 ST CODEREGG,CODESAVE 0585 01639000 * SSIBJBID=''B; /* SET JOBID TO 0 */ 01640000 L @14,LCTSSOBA(,LCTPTR) 0586 01641000 L @10,SSOBSSIB(,@14) 0586 01642000 XC SSIBJBID(8,@10),SSIBJBID(@10) 0586 01643000 * R0=LENGTH(SSRQ); /* LENGTH OF THE FUNCTIONAL 0587 01644000 * SECTION */ 01645000 LA R0,8 0587 01646000 * R0=R0|COREPOOL; /* PUT IN THE SUBPOOL NO. */ 01647000 O R0,COREPOOL 0588 01648000 * R1=SSOBINDV; /* GET THE FUNCTIONAL SECTION 0589 01649000 * ADDR */ 01650000 L R1,SSOBINDV(,@14) 0589 01651000 * GEN(FREEMAIN R,LV=(0),A=(1)); /* FREE THE FUNCTIONAL SECTION */ 01652000 FREEMAIN R,LV=(0),A=(1) 01653000 * SSOBINDV=0; /* CLEAR THE PTR IN THE SSOB */ 01654000 * 0591 01655000 SLR @14,@14 0591 01656000 L @10,LCTSSOBA(,LCTPTR) 0591 01657000 ST @14,SSOBINDV(,@10) 0591 01658000 * /*****************************************************************/ 01659000 * /* */ 01660000 * /* THIS SECTION OF CODE FREES ALL CONTROL BLOCKS ASSOCIATED WITH */ 01661000 * /* THIS JOB */ 01662000 * /* */ 01663000 * /*****************************************************************/ 01664000 * 0592 01665000 * COREPTR=LCTJSCB; /* ADDRESS OF THE JSCB */ 01666000 L COREPTR,LCTJSCB(,LCTPTR) 0592 01667000 * JSCBACT=TCBJSCB; /* MAKE INIT'S JSCB THE CURRENT 01668000 * JSCB */ 01669000 L @10,LCTTCBAD(,LCTPTR) 0593 01670000 L @10,TCBJSCB(,@10) 0593 01671000 ST @10,JSCBACT(,@10) 0593 01672000 * LCTJSCB=0; /* SET JSCB PTR TO ZERO */ 01673000 ST @14,LCTJSCB(,LCTPTR) 0594 01674000 * GEN( FREEJSCB SYSTEM=AOS); /* FREE THE JSCB */ 01675000 FREEJSCB SYSTEM=AOS 01676000 * LCTSCTAD=0; /* SET SCT PTR TO ZERO */ 01677000 SLR @14,@14 0596 01678000 ST @14,LCTSCTAD(,LCTPTR) 0596 01679000 * LCTSCTVA=0; /* CLEAR SCT SVA IN LCT */ 01680000 STCM @14,7,LCTSCTVA(LCTPTR) 0597 01681000 * LCTJCTAD=0; /* SET JCT PTR TO ZERO */ 01682000 ST @14,LCTJCTAD(,LCTPTR) 0598 01683000 * LCTJCTVA=0; /* CLEAR JCT SVA IN LCT */ 01684000 * 0599 01685000 STCM @14,7,LCTJCTVA(LCTPTR) 0599 01686000 * /*****************************************************************/ 01687000 * /* */ 01688000 * /* DELETE BLOCKS ON SWA Y02651*/ 01689000 * /* */ 01690000 * /*****************************************************************/ 01691000 * 0600 01692000 * QMPOP=QMDELETE; /* Y02651*/ 01693000 MVI QMPOP+248(LCTPTR),B'00001000' 0600 01694000 * R1=ADDR(QMGR1); /* Y02651*/ 01695000 LA R1,QMGR1(,LCTPTR) 0601 01696000 * CALL SWAMNGR; /* Y02651*/ 01697000 BAL @14,SWAMNGR 0602 01698000 * CHDL='1'B; /* SET THE DELETE INDICATOR */ 01699000 * CHAD='0'B; /* TURN OFF THE ADDITION 0604 01700000 * INDICATOR */ 01701000 * CHFC='1'B; /* INDICATE TO FREE THE CORE */ 01702000 L @14,LCTQDRTY(,LCTPTR) 0605 01703000 OI CHDL(@14),B'00000110' 0605 01704000 NI CHAD(@14),B'11110111' 0605 01705000 * R1=LCTQDRTY; /* ADDR OF THE CSCB */ 01706000 LR R1,@14 0606 01707000 * LCTQDRTY=0; /* CLEAR CSCB PTR IN LCT */ 01708000 SLR @14,@14 0607 01709000 ST @14,LCTQDRTY(,LCTPTR) 0607 01710000 * ASCBJBNI=0; /* SET ASCB PTR TO JOBNAME TO 0 */ 01711000 L @10,LCTASCBA(,LCTPTR) 0608 01712000 ST @14,ASCBJBNI(,@10) 0608 01713000 * GEN(MGCR (1),CHAIN); /* FREE THE CSCB */ 01714000 MGCR (1),CHAIN 01715000 * IF CODESAVE^=0 THEN 0610 01716000 ICM @14,15,CODESAVE 0610 01717000 BZ @RF00610 0610 01718000 * DO; /* IF AN ERROR WAS RETURNED FROM 01719000 * THE SUBSYSTEM INTERFACE, 0611 01720000 * ABEND, INDICATING SUBSYSTEM 0611 01721000 * INTERFACE ERROR */ 01722000 * R1=ABENCODE; /* PUT SSI ABEND CODE IN REG 1 */ 01723000 L R1,ABENCODE 0612 01724000 * GEN(ABEND (1),,,SYSTEM); /* ABEND */ 01725000 ABEND (1),,,SYSTEM 01726000 * END; 0614 01727000 * IF SSOBRETN^=0 THEN 0615 01728000 @RF00610 L @14,LCTSSOBA(,LCTPTR) 0615 01729000 L @14,SSOBRETN(,@14) 0615 01730000 LTR @14,@14 0615 01731000 BZ @RF00615 0615 01732000 * DO; /* IF AN ERROR WAS RETURNED FROM 01733000 * A SUBSYSTEM, PUT THE ERROR 0616 01734000 * CODE IN THE EXIT LIST AND 0616 01735000 * RETURN TO THE CALLER */ 01736000 * IELRTNCD=SSOBRETN; /* PUT THE ERROR CODE IN THE EXIT 01737000 * LIST */ 01738000 L @10,LCTENTR(,LCTPTR) 0617 01739000 L @10,IELEXIT(,@10) 0617 01740000 STC @14,IELRTNCD(,@10) 0617 01741000 * IELRCXT='06'X; /* INDICATE SUBSYSTEM ERROR */ 01742000 MVI IELRCXT(@10),X'06' 0618 01743000 * LCTSTOP='1'B; /* SET STOP INDICATOR */ 01744000 OI LCTSTOP(LCTPTR),B'00000100' 0619 01745000 * END; 0620 01746000 * LOOPSWCH=ON; /* SET LOOP INDICATOR ON */ 01747000 @RF00615 MVC LOOPSWCH(4),ON 0621 01748000 * RESPECIFY 0622 01749000 * (R0, 0622 01750000 * R1, 0622 01751000 * CODEREGG) UNRSTD; 0622 01752000 * END; 0623 01753000 @EL00003 DS 0H 0623 01754000 @EF00003 DS 0H 0623 01755000 @ER00003 LM @14,@12,@SA00003 0623 01756000 BR @14 0623 01757000 * END IEFSD061 0624 01758000 * 0624 01759000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01760000 */*%INCLUDE SYSLIB (CVT ) */ 01761000 */*%INCLUDE SYSLIB (IEFALLCT) */ 01762000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01763000 */*%INCLUDE SYSLIB (IKJTCB ) */ 01764000 */*%INCLUDE SYSLIB (IEZJSCB ) */ 01765000 */*%INCLUDE SYSLIB (IEFTIOT1) */ 01766000 */*%INCLUDE SYSLIB (IEECHAIN) */ 01767000 */*%INCLUDE SYSLIB (IEFJSSOB) */ 01768000 */*%INCLUDE SYSLIB (IEFJSSIB) */ 01769000 */*%INCLUDE SYSLIB (IEFZB622) */ 01770000 */*%INCLUDE SYSLIB (IEFASCTB) */ 01771000 */*%INCLUDE SYSLIB (IEFJESCT) */ 01772000 */*%INCLUDE SYSLIB (IEFAJCTB) */ 01773000 */*%INCLUDE SYSLIB (IEZIELDF) */ 01774000 */*%INCLUDE SYSLIB (IEZIEL ) */ 01775000 */*%INCLUDE SYSLIB (IEFQMNGR) */ 01776000 */*%INCLUDE SYSLIB (IEFZB610) */ 01777000 */*%INCLUDE SYSLIB (IHACSD ) */ 01778000 */*%INCLUDE SYSLIB (IEFZB505) */ 01779000 */*%INCLUDE SYSLIB (IEEBASEA) */ 01780000 */*%INCLUDE SYSLIB (IEFQMREQ) */ 01781000 * 0624 01782000 * ; 0624 01783000 @DATA DS 0H 01784000 @CH00091 DC H'1' 01785000 @CH00321 DC H'3' 01786000 @CH00084 DC H'4' 01787000 @CH01142 DC H'5' 01788000 @CH00062 DC H'8' 01789000 @CH01842 DC H'12' 01790000 @CH01879 DC H'13' 01791000 @CH01845 DC H'20' 01792000 @CH00100 DC H'24' 01793000 @CH00037 DC H'31' 01794000 @CH02696 DC H'58' 01795000 @CH02521 DC H'162' 01796000 @SM02707 MVC MSGAREA(0,WORKREG),MSGAREA1(MSGPTR) 01797000 @SM02711 MVC OUTENTRY(0,@09),DSNENTRY(@15) 01798000 @DATD DSECT 01799000 DS 0F 01800000 @PC00001 DS 1F 01801000 @SA00003 DS 15F 01802000 @SA00002 DS 15F 01803000 @AL00001 DS 4A 01804000 IEFSD061 CSECT 01805000 DS 0F 01806000 @CF00052 DC F'16' 01807000 @CH00052 EQU @CF00052+2 01808000 @CF02695 DC F'512' 01809000 @CF02709 DC F'-16' 01810000 @CF02710 DC F'-6' 01811000 @CF02681 DC XL4'0000FFFF' 01812000 @CF02682 DC XL4'00008000' 01813000 @DATD DSECT 01814000 DS 0D 01815000 SWEPAPTR DS A 01816000 SUBPOOOL DS FL4 01817000 ORG SUBPOOOL 01818000 SUBPNO DS BL1 01819000 CORELNG DS FL3 01820000 ORG SUBPOOOL+4 01821000 PARMLST DS FL4 01822000 ORG PARMLST 01823000 SSOBPNTR DS AL4 01824000 ORG SSOBPNTR 01825000 ENDLIST DS BL1 01826000 @NM00219 EQU SSOBPNTR+0 01827000 ORG PARMLST+4 01828000 LOOPSWCH DS F 01829000 CODESAVE DS A 01830000 KEYSWCH DS F 01831000 NUMMOVED DS H 01832000 PERFGRP DS AL1 01833000 DS CL1 01834000 REMLST DS CL7 01835000 ORG REMLST 01836000 REMREAD DS FL4 01837000 REMRBA DS FL3 01838000 ORG REMLST+7 01839000 JOBSNAME DS CL8 01840000 DS CL1 01841000 MSGCTO DS CL76 01842000 ORG MSGCTO 01843000 MSGCSIZE DS FL2 01844000 @NM00224 DS CL10 01845000 MSGCJOB DS CL8 01846000 @NM00225 DS CL12 01847000 MSGCLIST DS CL31 01848000 MSGCEND DS CL13 01849000 ORG MSGCTO+76 01850000 MSGDTO DS CL78 01851000 ORG MSGDTO 01852000 MSGDSIZE DS FL2 01853000 @NM00226 DS CL10 01854000 MSGDJOB DS CL8 01855000 @NM00227 DS CL14 01856000 MSGDLIST DS CL31 01857000 MSGDEND DS CL13 01858000 ORG MSGDTO+78 01859000 DS CL2 01860000 EPA1 DS CL16 01861000 IEFSD061 CSECT 01862000 DS 0F 01863000 @SIZDATD DC AL1(0) 01864000 DC AL3(@ENDDATD-@DATD) 01865000 @CV00053 DC V(IEFSD101) 01866000 @CV00054 DC V(IEFDSTBL) 01867000 @CV00055 DC V(IEFDSLST) 01868000 @CV00056 DC V(IEFSD064) 01869000 @CV00057 DC V(IEFSDPPT) 01870000 @CV00058 DC V(IEFICPUA) 01871000 @CV00059 DC V(IEFIMASK) 01872000 DS 0D 01873000 SUBPOOL1 DC XL4'FD000000' 01874000 COREPOOL DC XL4'FF000000' 01875000 SUBPOOL2 DC XL4'F5000000' 01876000 ON DC XL4'00000001' 01877000 OFFF DC XL4'00000000' 01878000 ABENCODE DC XL4'000000BA' 01879000 NUMBITS DC H'16' 01880000 @CC02678 DC C'RL' 01881000 @CB02248 DC X'FF00000000000000' 01882000 @CB02629 DC X'FFFF' 01883000 BLANKS DC CL4' ' 01884000 SSOBIDD DC CL4'SSOB' 01885000 START DC B'00000100' 01886000 ONEREC DC B'00000001' 01887000 SWAREAD DC B'00000100' 01888000 SWAWRITE DC B'00000011' 01889000 IEFSD061 CSECT 01890000 IEFSD61A ENQ (IEFSQCBS,IEFQ6QCB,E,2,SYSTEM),MF=L 01891000 IEFSQCBS DC C'SYSIEFSD' 01892000 SYSDSN DC CL8'SYSDSN' 01893000 IEFQ6QCB DC C'Q6' 01894000 IEFSD061 CSECT 01895000 DS 0H 01896000 PATCHLOC DC ((@DATA-@PSTART)/20)X'00' 01897000 @DATD DSECT 01898000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01899000 @ENDDATD EQU * 01900000 IEFSD061 CSECT 01901000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01902000 @01 EQU 01 01903000 @02 EQU 02 01904000 @03 EQU 03 01905000 @04 EQU 04 01906000 @05 EQU 05 01907000 @06 EQU 06 01908000 @07 EQU 07 01909000 @08 EQU 08 01910000 @09 EQU 09 01911000 @10 EQU 10 01912000 @11 EQU 11 01913000 @12 EQU 12 01914000 @13 EQU 13 01915000 @14 EQU 14 01916000 @15 EQU 15 01917000 BYTESMVD EQU @06 01918000 PPTINDEX EQU @06 01919000 SSCDSAVE EQU @06 01920000 EXITSAVE EQU @06 01921000 MSGPTR EQU @06 01922000 R0 EQU @00 01923000 R1 EQU @01 01924000 COREPTR EQU @01 01925000 LCTPTR EQU @02 01926000 RTNSAVE EQU @02 01927000 WORKREG EQU @03 01928000 IELPTR EQU @03 01929000 EXITPTR EQU @04 01930000 PARMPTR EQU @05 01931000 RTNREG EQU @14 01932000 R15 EQU @15 01933000 CODEREGG EQU @15 01934000 SAVEREGS EQU @13 01935000 SWAMGPTR EQU @15 01936000 R14 EQU @14 01937000 CVTPTR EQU 16 01938000 CVTMAP EQU 0 01939000 CVTDAR EQU CVTMAP+72 01940000 CVTFLGS1 EQU CVTDAR 01941000 CVTDCB EQU CVTMAP+116 01942000 CVTIOQET EQU CVTMAP+120 01943000 CVTIERLC EQU CVTMAP+144 01944000 CVTMSER EQU CVTMAP+148 01945000 CVTHEAD EQU CVTMAP+160 01946000 CVTSV76C EQU CVTHEAD 01947000 CVTOPTA EQU CVTMAP+182 01948000 CVTOPTB EQU CVTMAP+183 01949000 CVTGTF EQU CVTMAP+236 01950000 CVTGTFST EQU CVTGTF 01951000 CVTGTFS EQU CVTGTFST 01952000 CVTSTATE EQU CVTGTFST 01953000 CVTTMODE EQU CVTGTFST 01954000 CVTFORM EQU CVTGTFST 01955000 CVTAQAVT EQU CVTMAP+240 01956000 CVTTCMFG EQU CVTAQAVT 01957000 CVTVOLM2 EQU CVTMAP+244 01958000 CVTTATA EQU CVTVOLM2 01959000 CVTTSKS EQU CVTTATA 01960000 CVTVOLF2 EQU CVTTSKS 01961000 CVTTAT EQU CVTTATA+1 01962000 CVTATER EQU CVTMAP+248 01963000 CVTEXT1 EQU CVTMAP+252 01964000 CVTPURG EQU CVTMAP+260 01965000 CVTQMSG EQU CVTMAP+268 01966000 CVTDMSR EQU CVTMAP+272 01967000 CVTRSV37 EQU CVTDMSR 01968000 CVTDMSRF EQU CVTRSV37 01969000 CVTJESCT EQU CVTMAP+296 01970000 CVTERPV EQU CVTMAP+316 01971000 CVTINTLA EQU CVTMAP+320 01972000 CVTAPF EQU CVTMAP+324 01973000 CVTEXT2 EQU CVTMAP+328 01974000 CVTHJES EQU CVTMAP+332 01975000 CVTPGSIA EQU CVTMAP+348 01976000 CVTA1F1 EQU CVTMAP+356 01977000 CVTSYSK EQU CVTMAP+357 01978000 CVTVOLM1 EQU CVTMAP+380 01979000 CVTVOLF1 EQU CVTVOLM1 01980000 CVTATMCT EQU CVTMAP+388 01981000 CVTXTNT1 EQU 0 01982000 CVTXTNT2 EQU 0 01983000 CVTDSSV EQU CVTXTNT2 01984000 CVTFLGBT EQU CVTXTNT2+5 01985000 CVTQID EQU CVTXTNT2+24 01986000 CVTRV400 EQU CVTXTNT2+52 01987000 CVTRV409 EQU CVTXTNT2+53 01988000 CVTATCVT EQU CVTXTNT2+64 01989000 CVTRV429 EQU CVTXTNT2+84 01990000 CVTRV438 EQU CVTXTNT2+85 01991000 CVTRV457 EQU CVTXTNT2+112 01992000 CVTRV466 EQU CVTXTNT2+113 01993000 CVTFIX EQU 0 01994000 CVTRELNO EQU CVTFIX+252 01995000 LCT EQU 0 01996000 LCTQDRTY EQU LCT 01997000 LCTSRTAD EQU LCT+4 01998000 LCTTCBAD EQU LCT+8 01999000 LCTQENTY EQU LCT+12 02000000 @NM00009 EQU LCTQENTY 02001000 LCTJCTAD EQU LCT+16 02002000 LCTSCTAD EQU LCT+20 02003000 LCTSCTDA EQU LCT+24 02004000 LCTWORKA EQU LCTSCTDA 02005000 LCTSCTVA EQU LCTWORKA 02006000 LCTPSPAR EQU LCT+28 02007000 LCTERROR EQU LCT+32 02008000 LCTERR EQU LCTERROR 02009000 LCTPARM1 EQU LCT+36 02010000 LCTPARM2 EQU LCT+40 02011000 LCTCMCBA EQU LCT+52 02012000 LCTNSPAD EQU LCT+56 02013000 LCTJFCBH EQU LCT+57 02014000 LCTSNUMB EQU LCT+58 02015000 LCTSMBAD EQU LCT+60 02016000 LCTCOMCD EQU LCT+68 02017000 LCTRTRN EQU LCT+72 02018000 LCTSREG EQU LCTRTRN 02019000 @NM00036 EQU LCT+76 02020000 LCTINTSW EQU @NM00036 02021000 LCTSTOP EQU LCTINTSW 02022000 LCTPUBYT EQU @NM00036+1 02023000 LCTTMWRK EQU LCT+80 02024000 LCTTJTU4 EQU LCTTMWRK 02025000 LCTTSTL4 EQU LCTTMWRK+4 02026000 LCTTSTR4 EQU LCTTMWRK+8 02027000 LCTSMF EQU LCTTSTR4 02028000 LCTTMBYT EQU LCTSMF 02029000 LCTTSTU4 EQU LCTTMWRK+12 02030000 LCTJOBLB EQU LCT+96 02031000 LCTATLST EQU LCT+100 02032000 REGSAVE EQU LCT+104 02033000 QMGR1 EQU LCT+248 02034000 LCTASCBA EQU LCT+320 02035000 LCTECBAD EQU LCT+328 02036000 ECBLIST EQU LCTECBAD 02037000 LCTIDENT EQU LCT+332 02038000 LCTSPIL EQU LCTIDENT+4 02039000 LCTALCFG EQU LCTSPIL+2 02040000 LCTTSRB4 EQU LCT+348 02041000 LCTENTR EQU LCT+352 02042000 LCTEXIT EQU LCTENTR 02043000 LCTOPSW1 EQU LCTEXIT 02044000 LCTONEJF EQU LCTOPSW1 02045000 @NM00066 EQU LCT+356 02046000 LCTOPSW2 EQU @NM00066 02047000 LCTJSCB EQU LCT+360 02048000 LCTOPSW3 EQU LCTJSCB 02049000 LCTSTEPL EQU LCT+400 02050000 LCTSSOBA EQU LCT+404 02051000 LCTJCTDA EQU LCT+408 02052000 LCTJCTVA EQU LCTJCTDA 02053000 LCTSTATA EQU LCT+416 02054000 LCTSTATB EQU LCT+417 02055000 LCTRFB EQU LCT+418 02056000 @NM00078 EQU LCT+420 02057000 LCTINTS2 EQU @NM00078+1 02058000 LCTIMSG EQU LCT+432 02059000 ASCB EQU 0 02060000 ASCBSUPC EQU ASCB+16 02061000 ASCBRSM EQU ASCB+52 02062000 ASCBRSMF EQU ASCBRSM 02063000 ASCBFW1 EQU ASCB+100 02064000 ASCBAFFN EQU ASCBFW1 02065000 ASCBRCTF EQU ASCBFW1+2 02066000 ASCBFLG1 EQU ASCBFW1+3 02067000 ASCBDSP1 EQU ASCB+114 02068000 ASCBFLG2 EQU ASCB+115 02069000 ASCBLKGP EQU ASCB+128 02070000 ASCBJBNI EQU ASCB+172 02071000 ASCBSRQ EQU ASCB+180 02072000 ASCBSRQ1 EQU ASCBSRQ 02073000 ASCBSRQ2 EQU ASCBSRQ+1 02074000 ASCBSRQ3 EQU ASCBSRQ+2 02075000 ASCBSRQ4 EQU ASCBSRQ+3 02076000 TCBFIX EQU 0 02077000 TCBFRS EQU TCBFIX 02078000 TCB EQU 0 02079000 TCBPIE EQU TCB+4 02080000 TCBPMASK EQU TCBPIE 02081000 TCBTIO EQU TCB+12 02082000 TCBCMP EQU TCB+16 02083000 TCBCMPF EQU TCBCMP 02084000 TCBCPP EQU TCBCMPF 02085000 TCBSTCC EQU TCBCMPF 02086000 TCBCDBL EQU TCBCMPF 02087000 TCBCWTO EQU TCBCMPF 02088000 TCBCIND EQU TCBCMPF 02089000 TCBCMSG EQU TCBCMPF 02090000 TCBTRN EQU TCB+20 02091000 TCBABF EQU TCBTRN 02092000 TCBMSS EQU TCB+24 02093000 TCBPKF EQU TCB+28 02094000 TCBFLGS EQU TCB+29 02095000 TCBFLGS1 EQU TCBFLGS 02096000 TCBFLGS2 EQU TCBFLGS+1 02097000 TCBFLGS3 EQU TCBFLGS+2 02098000 TCBFLGS4 EQU TCBFLGS+3 02099000 TCBFLGS5 EQU TCBFLGS+4 02100000 TCBABWF EQU TCBFLGS5 02101000 TCBJPQ EQU TCB+44 02102000 TCBPURGE EQU TCBJPQ 02103000 TCBGRS EQU TCB+48 02104000 TCBFSA EQU TCB+112 02105000 TCBTME EQU TCB+120 02106000 TCBJSTCB EQU TCB+124 02107000 TCBTSFLG EQU TCB+148 02108000 TCBTSTSK EQU TCBTSFLG 02109000 TCBSTAB EQU TCB+160 02110000 TCBNSTAE EQU TCBSTAB 02111000 TCBTCT EQU TCB+164 02112000 TCBTCTGF EQU TCBTCT 02113000 TCBSCNDY EQU TCB+172 02114000 TCBNDSP EQU TCBSCNDY 02115000 TCBNDSP1 EQU TCBNDSP+1 02116000 TCBNDSP2 EQU TCBNDSP+2 02117000 TCBNDSP3 EQU TCBNDSP+3 02118000 TCBJSCB EQU TCB+180 02119000 TCBRECDE EQU TCBJSCB 02120000 TCBEXT1 EQU TCB+196 02121000 TCBBITS EQU TCB+200 02122000 TCBNDSP4 EQU TCBBITS 02123000 TCBNDSP5 EQU TCBBITS+1 02124000 TCBFLGS6 EQU TCBBITS+2 02125000 TCBFLGS7 EQU TCBBITS+3 02126000 TCBDAR EQU TCB+204 02127000 TCBDARC EQU TCBDAR 02128000 TCBEXT2 EQU TCB+208 02129000 TCBXSCT EQU TCB+240 02130000 TCBXSCT1 EQU TCBXSCT 02131000 TCBFOE EQU TCB+244 02132000 TCBSTAWA EQU TCB+252 02133000 TCBESTAE EQU TCB+264 02134000 TCBESTRM EQU TCBESTAE+1 02135000 TCBFBYT1 EQU TCB+276 02136000 TCBFBYT2 EQU TCB+277 02137000 TCBRV124 EQU TCB+278 02138000 TCBRV133 EQU TCB+279 02139000 TCBXTNT2 EQU 0 02140000 TCBGTF EQU TCBXTNT2 02141000 TCBTFLG EQU TCBGTF 02142000 TCBRV146 EQU TCBXTNT2+28 02143000 TCBRV155 EQU TCBXTNT2+29 02144000 TCBRV164 EQU TCBXTNT2+30 02145000 TCBRV173 EQU TCBXTNT2+31 02146000 IEZJSCB EQU 0 02147000 JSCBSEC1 EQU IEZJSCB+188 02148000 JSCHPCE EQU JSCBSEC1+4 02149000 JSCBDCB EQU JSCBSEC1+36 02150000 JSCBOPTS EQU JSCBSEC1+48 02151000 JSCBSWT1 EQU JSCBSEC1+55 02152000 JSCBWTP EQU JSCBSEC1+64 02153000 JSCBWTFG EQU JSCBWTP 02154000 JSCBCSCB EQU JSCBSEC1+68 02155000 JSCBEND1 EQU IEZJSCB+260 02156000 TIOT1 EQU 0 02157000 TIOCSTEP EQU TIOT1+8 02158000 CHAIN EQU 0 02159000 CHFLG EQU CHAIN+4 02160000 CHVCD EQU CHFLG 02161000 CHSZE EQU CHFLG+1 02162000 CHSTS EQU CHFLG+2 02163000 CHAD EQU CHSTS 02164000 CHDL EQU CHSTS 02165000 CHFC EQU CHSTS 02166000 CHACT EQU CHFLG+3 02167000 CHKEY EQU CHAIN+8 02168000 CHPARM EQU CHKEY 02169000 CHCLS EQU CHAIN+16 02170000 CHPKE EQU CHAIN+28 02171000 CHTRKID EQU CHPKE 02172000 CHUCMP EQU CHAIN+29 02173000 CHTJID EQU CHAIN+30 02174000 CHPROCSN EQU CHAIN+32 02175000 CHACT1 EQU CHPROCSN+3 02176000 CHASM EQU CHAIN+40 02177000 CHCIBP EQU CHASM+4 02178000 CHRGNSZ EQU CHASM+8 02179000 CHSTEP EQU CHASM+24 02180000 CHSWT EQU CHSTEP 02181000 CHSHORT EQU CHASM+32 02182000 SSOB EQU 0 02183000 SSOBID EQU SSOB 02184000 SSOBLEN EQU SSOB+4 02185000 SSOBFUNC EQU SSOB+6 02186000 SSOBSSIB EQU SSOB+8 02187000 SSOBRETN EQU SSOB+12 02188000 SSOBINDV EQU SSOB+16 02189000 SSJS EQU 0 02190000 SSJSLEN EQU SSJS 02191000 SSJSFLG1 EQU SSJS+6 02192000 SSJSLCT EQU SSJS+8 02193000 SSJSSERR EQU SSJS+32 02194000 SSJSPASS EQU SSJS+40 02195000 SSJSPAS2 EQU SSJS+49 02196000 SSRQ EQU 0 02197000 SSRQLEN EQU SSRQ 02198000 SSRQSTEP EQU SSRQ+4 02199000 SSRQFLG1 EQU SSRQ+6 02200000 SSRQHOLD EQU SSRQFLG1 02201000 SSIB EQU 0 02202000 SSIBFLG1 EQU SSIB+6 02203000 SSIBJBID EQU SSIB+12 02204000 STEPL EQU 0 02205000 @NM00103 EQU STEPL+8 02206000 STEFLAGS EQU @NM00103 02207000 STERETRY EQU STEFLAGS 02208000 STETJMR EQU STEFLAGS 02209000 INSMSCT EQU 0 02210000 SCTSSTAT EQU INSMSCT+4 02211000 SCTSNUMB EQU INSMSCT+64 02212000 SCTSTYPE EQU INSMSCT+67 02213000 SCTSDPTY EQU INSMSCT+94 02214000 SCTFSTEP EQU SCTSDPTY 02215000 SCTSTAT2 EQU INSMSCT+104 02216000 SCTBCT EQU SCTSTAT2 02217000 SCTPGMNM EQU INSMSCT+108 02218000 SCTPRFMF EQU INSMSCT+116 02219000 SCTCDENT EQU INSMSCT+118 02220000 SCTSTEND EQU INSMSCT+172 02221000 @NM00125 EQU 0 02222000 SCTABCND EQU @NM00125 02223000 JESCT EQU 0 02224000 JESWAA EQU JESCT+8 02225000 JESQMGR EQU JESCT+12 02226000 JESSSREQ EQU JESCT+20 02227000 JESALLOC EQU JESCT+32 02228000 JESUNALC EQU JESCT+36 02229000 JESCATL EQU JESCT+40 02230000 SWAMGR EQU 0 02231000 SSREQ EQU 0 02232000 INJMJCT EQU 0 02233000 JCTJSRNO EQU INJMJCT+4 02234000 JCTJSTAT EQU INJMJCT+5 02235000 INCMSTS EQU JCTJSTAT 02236000 INDMCTLG EQU JCTJSTAT 02237000 JCTJBYTE EQU INJMJCT+7 02238000 JCTJMGLV EQU JCTJBYTE 02239000 JCTJNAME EQU INJMJCT+8 02240000 JCTCCODE EQU INJMJCT+54 02241000 JCTRSW1 EQU INJMJCT+86 02242000 JCTWARMS EQU JCTRSW1 02243000 JCTRSW2 EQU INJMJCT+87 02244000 JCTDETDA EQU INJMJCT+88 02245000 JCTJSB EQU INJMJCT+111 02246000 JCTSSTR EQU INJMJCT+112 02247000 JCTSTAT2 EQU INJMJCT+116 02248000 JCTADSPC EQU JCTSTAT2 02249000 IEFAACTB EQU 0 02250000 IEL EQU 0 02251000 IELLIST EQU IEL 02252000 IELOPLST EQU IELLIST+8 02253000 IELEXIT EQU IELLIST+20 02254000 IELLAST EQU IELEXIT 02255000 IELOPTS EQU 0 02256000 IELOPSW1 EQU IELOPTS+2 02257000 IELOPSW2 EQU IELOPTS+3 02258000 IELOPSW3 EQU IELOPTS+5 02259000 IELEXITS EQU 0 02260000 IELEXHDR EQU IELEXITS 02261000 IELXTLEN EQU IELEXHDR 02262000 IELRTNCD EQU IELEXHDR+2 02263000 IELRCXT EQU IELEXHDR+3 02264000 RTNEXT EQU IELEXITS+8 02265000 RTNEXLK EQU RTNEXT 02266000 RTNEXID EQU RTNEXT+1 02267000 RTNEXNM EQU RTNEXT+2 02268000 RTNEXAD EQU RTNEXNM+2 02269000 QMPA EQU 0 02270000 QMNAM EQU QMPA 02271000 QMPOP EQU QMPA+8 02272000 QMSTA EQU QMPA+16 02273000 QMPCL EQU QMPA+32 02274000 QMPCMNC EQU QMPCL 02275000 QMPACL EQU QMPCL+1 02276000 SWAQMPA EQU 0 02277000 PPT EQU 0 02278000 PPTNAME EQU PPT 02279000 PPTBYTE1 EQU PPT+8 02280000 PPTCPUA EQU PPT+10 02281000 PPTFLGS EQU PPT+12 02282000 PPTPUBYT EQU PPTFLGS 02283000 CSD EQU 0 02284000 CSDCPUJS EQU CSD+4 02285000 CSDCPUAL EQU CSD+8 02286000 CSDSCWRD EQU CSD+12 02287000 CSDSCFL1 EQU CSDSCWRD 02288000 CSDSCFL2 EQU CSDSCWRD+1 02289000 CSDSCFL3 EQU CSDSCWRD+2 02290000 CSDSCFL4 EQU CSDSCWRD+3 02291000 CSDFLAGS EQU CSD+23 02292000 SWAEPA EQU 0 02293000 SWBLKPTR EQU SWAEPA 02294000 SWVAFW EQU SWAEPA+4 02295000 SWVA EQU SWVAFW 02296000 BASE EQU 0 02297000 @NM00167 EQU BASE+13 02298000 BALGSTAT EQU BASE+24 02299000 BALOG EQU BALGSTAT+4 02300000 BASFL EQU BASE+36 02301000 BARSW EQU BASFL 02302000 BAPKES EQU BASE+40 02303000 MSLOGST EQU BASE+46 02304000 BASPBYTE EQU BASE+47 02305000 BAMONITR EQU BASE+56 02306000 @NM00189 EQU BASE+104 02307000 MSLGCLOZ EQU BASE+108 02308000 MSCLOSSW EQU MSLGCLOZ 02309000 MSLGWLOG EQU BASE+112 02310000 MSWLOGSW EQU MSLGWLOG 02311000 MSLGWTR EQU BASE+116 02312000 MSWTRSW EQU MSLGWTR 02313000 MSLGSTRT EQU BASE+120 02314000 MSSTRTSW EQU MSLGSTRT 02315000 MS1BASEX EQU BASE+136 02316000 BASES01 EQU 0 02317000 MSNTAL EQU BASES01 02318000 MSSSB EQU BASES01+1 02319000 MSBTN EQU MSSSB 02320000 MSPFG EQU BASES01+2 02321000 MSECBFL EQU BASES01+3 02322000 MSTUS EQU BASES01+4 02323000 MSSSA EQU MSTUS 02324000 MSINLSW EQU MSSSA 02325000 MSREOF EQU MSSSA 02326000 MSNWP EQU MSSSA 02327000 MSFHF EQU BASES01+5 02328000 DSTABLE EQU 0 02329000 INPUTREC EQU DSTABLE 02330000 ICSVA EQU INPUTREC 02331000 ILSVA EQU INPUTREC+4 02332000 INPAREA EQU INPUTREC+14 02333000 OUTREC EQU DSTABLE+176 02334000 OCSVA EQU OUTREC 02335000 DSNQID EQU OUTREC+3 02336000 OLSVA EQU OUTREC+4 02337000 DSNQFREE EQU OUTREC+12 02338000 OUTAREA EQU OUTREC+14 02339000 STBLPARM EQU DSTABLE+352 02340000 DSENQSVA EQU STBLPARM+1 02341000 RECADDR EQU STBLPARM+4 02342000 TREEPTR EQU STBLPARM+8 02343000 DSNSTEP EQU STBLPARM+15 02344000 SPACEPTR EQU DSTABLE+368 02345000 DATASAVE EQU DSTABLE+372 02346000 CHARSAV EQU DATASAVE 02347000 DSNCT EQU DATASAVE+4 02348000 DSNENTRY EQU 0 02349000 DSNLGTH EQU DSNENTRY+2 02350000 MAJORNM EQU 0 02351000 MSGAREA1 EQU 0 02352000 MSGRTNHD EQU 0 02353000 MSGLGTH1 EQU MSGRTNHD+1 02354000 DISPL1 EQU MSGRTNHD+2 02355000 MSGLGTH2 EQU MSGRTNHD+5 02356000 DISPL2 EQU MSGRTNHD+6 02357000 @NM00215 EQU MSGRTNHD+44 02358000 DISPLC EQU @NM00215+2 02359000 @NM00217 EQU MSGRTNHD+48 02360000 DISPLD EQU @NM00217+2 02361000 IEFPARM EQU 0 02362000 LCTAD EQU IEFPARM 02363000 JCTAD EQU IEFPARM+4 02364000 SCTAD EQU IEFPARM+8 02365000 SUPVLIST EQU 0 02366000 RLISTPTR EQU SUPVLIST 02367000 EXITNAME EQU SUPVLIST+8 02368000 PADBLANK EQU SUPVLIST+14 02369000 MSGAREA EQU 0 02370000 JOBNAME1 EQU MSGAREA+36 02371000 JOBNAME2 EQU JOBNAME1+6 02372000 OUTENTRY EQU 0 02373000 MSGCFROM EQU 0 02374000 MSGDFROM EQU 0 02375000 IEFAB4F5 EQU 0 02376000 IEFBB410 EQU 0 02377000 IEFW21SD EQU 0 02378000 INDMDSNT EQU 0 02379000 PARMMS EQU 0 02380000 CVTS01 EQU CVTPGSIA 02381000 CVTLPDIA EQU CVTS01+12 02382000 CVTDIRST EQU CVTLPDIA 02383000 CVTSLIDA EQU CVTS01+24 02384000 CVTCTLFG EQU CVTS01+50 02385000 CVTCSD EQU CVTS01+312 02386000 CVTRV210 EQU CVTS01+424 02387000 CVTRV219 EQU CVTS01+425 02388000 CVTRV228 EQU CVTS01+426 02389000 CVTRV237 EQU CVTS01+427 02390000 CVTMFRTR EQU CVTS01+452 02391000 CVTRV262 EQU CVTS01+468 02392000 CVTRV271 EQU CVTS01+469 02393000 CVTRV280 EQU CVTS01+470 02394000 CVTRV289 EQU CVTS01+471 02395000 CVTGSDA EQU CVTS01+600 02396000 JSCBSEC2 EQU JSCBEND1 02397000 JSCBSEC3 EQU JSCBEND1 02398000 JSCBJCT EQU JSCBSEC3 02399000 JSCBJCTA EQU JSCBJCT+1 02400000 JSCBASID EQU JSCBSEC3+8 02401000 JSCBFBYT EQU JSCBSEC3+10 02402000 JSCBJNL EQU JSCBSEC3+28 02403000 JSCBJJSB EQU JSCBJNL 02404000 JSCBSUB EQU JSCBSEC3+40 02405000 JSCSCT EQU JSCBSEC3+68 02406000 JSCBSWSP EQU JSCBSEC3+87 02407000 JSCBACT EQU JSCBSEC3+88 02408000 JSCRSV45 EQU JSCBSEC3+112 02409000 JSCRSV46 EQU JSCRSV45 02410000 JSCRSV47 EQU JSCRSV45+2 02411000 TIOENTRY EQU TIOT1+24 02412000 TIOESTTA EQU TIOENTRY+1 02413000 TIOERLOC EQU TIOENTRY+2 02414000 TIOELINK EQU TIOERLOC+1 02415000 TIOESYOT EQU TIOELINK 02416000 TIOESTTC EQU TIOENTRY+15 02417000 TIOESTTB EQU TIOENTRY+16 02418000 POOLSTAR EQU TIOENTRY+20 02419000 TIOEDEVE EQU TIOESTTB 02420000 TIOSTTB EQU TIOEDEVE 02421000 CHAINS01 EQU CHASM 02422000 CHTYPE EQU CHAINS01+124 02423000 CHTRSTAT EQU CHAINS01+125 02424000 CHCSYSO EQU CHAINS01+134 02425000 CHLAST EQU CHAINS01+136 02426000 PROTKEY EQU BAPKES 02427000 SLSTPARM EQU STBLPARM 02428000 TREEADDR EQU SLSTPARM 02429000 LISTADDR EQU SLSTPARM+4 02430000 BUILDADR EQU SLSTPARM+8 02431000 DSCOUNT EQU SLSTPARM+12 02432000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02433000 CHSPA EQU CHAINS01+135 02434000 CHUSERID EQU CHCSYSO 02435000 CHJB EQU CHCSYSO 02436000 CHDUMP EQU CHCSYSO 02437000 CHQUE EQU CHCSYSO 02438000 CHHOLD EQU CHCSYSO 02439000 CHOUT EQU CHCSYSO 02440000 CHINN EQU CHCSYSO 02441000 CHALL EQU CHCSYSO 02442000 CHINC EQU CHAINS01+132 02443000 CHPEND EQU CHAINS01+128 02444000 CHARID EQU CHAINS01+127 02445000 CHCNID EQU CHAINS01+126 02446000 @NM00094 EQU CHTRSTAT 02447000 CHTSL EQU CHTRSTAT 02448000 CHTS EQU CHTRSTAT 02449000 CHINITL EQU CHTRSTAT 02450000 CHINIT EQU CHTRSTAT 02451000 CHJOBSL EQU CHTRSTAT 02452000 CHJOBS EQU CHTRSTAT 02453000 CHDEF EQU CHTYPE 02454000 CHHIAR EQU CHTYPE 02455000 CHARSV29 EQU CHTYPE 02456000 CHARSV28 EQU CHTYPE 02457000 CHARSV27 EQU CHTYPE 02458000 CHARSV26 EQU CHTYPE 02459000 CHARSV25 EQU CHTYPE 02460000 CHDSTAT EQU CHTYPE 02461000 CHBUF EQU CHAINS01 02462000 TIOUCBP EQU TIOEDEVE+1 02463000 TIOVERF EQU TIOSTTB 02464000 TIOUNLD EQU TIOSTTB 02465000 TIOMNTD EQU TIOSTTB 02466000 TIOSETU EQU TIOSTTB 02467000 TIOVLSR EQU TIOSTTB 02468000 TIOPVIO EQU TIOSTTB 02469000 TIOREQD EQU TIOSTTB 02470000 TIOUSED EQU TIOSTTB 02471000 TIOTFEND EQU POOLSTAR+16 02472000 TIOPSLOT EQU POOLSTAR+13 02473000 TIOPSTTB EQU POOLSTAR+12 02474000 TIOPPOOL EQU POOLSTAR+4 02475000 TIOPNSRT EQU POOLSTAR+3 02476000 @NM00090 EQU POOLSTAR+2 02477000 TIOPNSLT EQU POOLSTAR+1 02478000 @NM00089 EQU POOLSTAR 02479000 TIOEFSRT EQU TIOENTRY+17 02480000 TIOSVERF EQU TIOESTTB 02481000 TIOSUNLD EQU TIOESTTB 02482000 TIOSMNTD EQU TIOESTTB 02483000 TIOSSETU EQU TIOESTTB 02484000 TIOSVLSR EQU TIOESTTB 02485000 TIOSPVIO EQU TIOESTTB 02486000 TIOSREQD EQU TIOESTTB 02487000 TIOSUSED EQU TIOESTTB 02488000 TIOSBALS EQU TIOESTTC 02489000 TIOSBALP EQU TIOESTTC 02490000 TIOSVOLS EQU TIOESTTC 02491000 TIOSVOLP EQU TIOESTTC 02492000 TIOSAFFS EQU TIOESTTC 02493000 TIOSAFFP EQU TIOESTTC 02494000 TIOSDEFR EQU TIOESTTC 02495000 TIOSDKCR EQU TIOESTTC 02496000 TIOEJFCB EQU TIOENTRY+12 02497000 TIOEDDNM EQU TIOENTRY+4 02498000 TIOTREM EQU TIOELINK 02499000 TIOESSDS EQU TIOESYOT 02500000 TIOESYIN EQU TIOELINK 02501000 TIOEQNAM EQU TIOELINK 02502000 TIOEDYNM EQU TIOELINK 02503000 TIOTTERM EQU TIOELINK 02504000 TIOTRV01 EQU TIOELINK 02505000 TIOSYOUT EQU TIOELINK 02506000 TIOEWTCT EQU TIOERLOC 02507000 TIOSDSP2 EQU TIOESTTA 02508000 TIOSDSP1 EQU TIOESTTA 02509000 TIOSLABL EQU TIOESTTA 02510000 TIOSDADS EQU TIOESTTA 02511000 TIOSJBLB EQU TIOESTTA 02512000 TIOSPLTS EQU TIOESTTA 02513000 TIOSPLTP EQU TIOESTTA 02514000 TIOSLTYP EQU TIOESTTA 02515000 TIOELNGH EQU TIOENTRY 02516000 JSCBEND3 EQU JSCBSEC3+120 02517000 JSCRSV52 EQU JSCBSEC3+116 02518000 JSCRSV51 EQU JSCRSV47+1 02519000 JSCRSV50 EQU JSCRSV47 02520000 JSCRSV49 EQU JSCRSV46+1 02521000 JSCRSV48 EQU JSCRSV46 02522000 JSCRSV44 EQU JSCBSEC3+108 02523000 JSCRSV43 EQU JSCBSEC3+104 02524000 JSCRSV42 EQU JSCBSEC3+100 02525000 JSCBASWA EQU JSCBSEC3+96 02526000 JSCBUFPT EQU JSCBSEC3+92 02527000 JSCRSV33 EQU JSCBSEC3+86 02528000 JSCDDNUM EQU JSCBSEC3+84 02529000 JSCRSV53 EQU JSCBSEC3+82 02530000 JSCDDNNO EQU JSCBSEC3+80 02531000 JSCBVATA EQU JSCBSEC3+76 02532000 JSCTMCOR EQU JSCBSEC3+72 02533000 JSCSCTP EQU JSCSCT+1 02534000 JSCRSV55 EQU JSCSCT 02535000 JSCRSV54 EQU JSCBSEC3+64 02536000 JSCDSABQ EQU JSCBSEC3+60 02537000 JSCBSSIB EQU JSCBSEC3+56 02538000 JSCBFRBA EQU JSCBSEC3+48 02539000 JSCRSV28 EQU JSCBSEC3+46 02540000 JSCBSONO EQU JSCBSEC3+44 02541000 JSCBSUBA EQU JSCBSUB+1 02542000 JSCRSV31 EQU JSCBSUB 02543000 JSCBSMLR EQU JSCBSEC3+36 02544000 JSCBJNLR EQU JSCBSEC3+32 02545000 JSCBJNLA EQU JSCBJNL+1 02546000 JSCBJSBT EQU JSCBJJSB 02547000 JSCBJSBX EQU JSCBJJSB 02548000 JSCBJSBA EQU JSCBJJSB 02549000 JSCBJSBI EQU JSCBJJSB 02550000 @NM00088 EQU JSCBJJSB 02551000 JSCBJNLE EQU JSCBJJSB 02552000 JSCBJNLF EQU JSCBJJSB 02553000 JSCBJNLN EQU JSCBJJSB 02554000 @NM00087 EQU JSCBSEC3+24 02555000 JSCBJRBA EQU JSCBSEC3+16 02556000 JSCBIECB EQU JSCBSEC3+12 02557000 JSCBRV08 EQU JSCBSEC3+11 02558000 JSCBRV07 EQU JSCBFBYT 02559000 JSCBRV06 EQU JSCBFBYT 02560000 JSCBRV05 EQU JSCBFBYT 02561000 JSCBRV04 EQU JSCBFBYT 02562000 JSCBRV03 EQU JSCBFBYT 02563000 JSCBRV02 EQU JSCBFBYT 02564000 JSCBADSP EQU JSCBFBYT 02565000 JSCBRV01 EQU JSCBFBYT 02566000 JSCBTJID EQU JSCBASID 02567000 JSCBPSCB EQU JSCBSEC3+4 02568000 JSCJCTP EQU JSCBJCTA 02569000 JSCRSV24 EQU JSCBJCT 02570000 JSCBEND2 EQU JSCBSEC2 02571000 CVTRV628 EQU CVTS01+728 02572000 CVTRV627 EQU CVTS01+724 02573000 CVTRV626 EQU CVTS01+720 02574000 CVTRV625 EQU CVTS01+716 02575000 CVTRV624 EQU CVTS01+712 02576000 CVTRV623 EQU CVTS01+708 02577000 CVTRV622 EQU CVTS01+704 02578000 CVTRV621 EQU CVTS01+700 02579000 CVTIHASU EQU CVTS01+696 02580000 CVTSUSP EQU CVTS01+692 02581000 CVTT6SVC EQU CVTS01+688 02582000 CVTCDAL EQU CVTS01+684 02583000 CVTTCTL EQU CVTS01+680 02584000 CVTRSUME EQU CVTS01+676 02585000 CVTJTERM EQU CVTS01+672 02586000 CVTASMRM EQU CVTS01+668 02587000 CVTTCASP EQU CVTS01+664 02588000 CVT0PT03 EQU CVTS01+660 02589000 CVT0PT0E EQU CVTS01+656 02590000 CVTRV609 EQU CVTS01+652 02591000 CVTCGK EQU CVTS01+648 02592000 CVTRAC EQU CVTS01+644 02593000 CVTRV606 EQU CVTS01+640 02594000 CVTRV605 EQU CVTS01+636 02595000 CVTRV604 EQU CVTS01+632 02596000 CVTEFF02 EQU CVTS01+628 02597000 CVTCBBR EQU CVTS01+624 02598000 CVTSSCR EQU CVTS01+620 02599000 CVTEVENT EQU CVTS01+616 02600000 CVTCRCA EQU CVTS01+612 02601000 CVTTPIO EQU CVTS01+608 02602000 CVTADV EQU CVTS01+604 02603000 CVTGSDAB EQU CVTGSDA 02604000 CVTQV3 EQU CVTS01+596 02605000 CVTQV2 EQU CVTS01+592 02606000 CVTQV1 EQU CVTS01+588 02607000 CVTRPT EQU CVTS01+584 02608000 CVTSSRB EQU CVTS01+580 02609000 CVTCSDRL EQU CVTS01+576 02610000 CVTEXP1 EQU CVTS01+572 02611000 CVTRMPMT EQU CVTS01+568 02612000 CVTRMPTT EQU CVTS01+564 02613000 CVTVPSA EQU CVTS01+560 02614000 CVTVSTOP EQU CVTS01+556 02615000 CVTGTFR8 EQU CVTS01+552 02616000 CVTQUIT EQU CVTS01+548 02617000 CVTVACR EQU CVTS01+544 02618000 CVTWTCB EQU CVTS01+540 02619000 CVTSTPRS EQU CVTS01+536 02620000 CVT0PT02 EQU CVTS01+532 02621000 CVTDARCM EQU CVTS01+528 02622000 CVTIRECM EQU CVTS01+524 02623000 CVTJRECM EQU CVTS01+520 02624000 CVTVEMS0 EQU CVTS01+516 02625000 CVTSPFRR EQU CVTS01+512 02626000 CVTRLSTG EQU CVTS01+508 02627000 CVT0TC0A EQU CVTS01+504 02628000 CVTGMBR EQU CVTS01+500 02629000 CVTLFRM EQU CVTS01+496 02630000 CVTRMBR EQU CVTS01+492 02631000 CVTVIOP EQU CVTS01+488 02632000 CVTRV307 EQU CVTS01+486 02633000 CVTRV306 EQU CVTS01+484 02634000 CVTRV305 EQU CVTS01+482 02635000 CVTRV304 EQU CVTS01+480 02636000 CVTRV303 EQU CVTS01+478 02637000 CVTRV302 EQU CVTS01+476 02638000 CVTTRCA EQU CVTS01+472 02639000 CVTRV297 EQU CVTRV289 02640000 CVTRV296 EQU CVTRV289 02641000 CVTRV295 EQU CVTRV289 02642000 CVTRV294 EQU CVTRV289 02643000 CVTRV293 EQU CVTRV289 02644000 CVTRV292 EQU CVTRV289 02645000 CVTRV291 EQU CVTRV289 02646000 CVTRV290 EQU CVTRV289 02647000 CVTRV288 EQU CVTRV280 02648000 CVTRV287 EQU CVTRV280 02649000 CVTRV286 EQU CVTRV280 02650000 CVTRV285 EQU CVTRV280 02651000 CVTRV284 EQU CVTRV280 02652000 CVTRV283 EQU CVTRV280 02653000 CVTRV282 EQU CVTRV280 02654000 CVTRV281 EQU CVTRV280 02655000 CVTRV279 EQU CVTRV271 02656000 CVTRV278 EQU CVTRV271 02657000 CVTRV277 EQU CVTRV271 02658000 CVTRV276 EQU CVTRV271 02659000 CVTRV275 EQU CVTRV271 02660000 CVTRV274 EQU CVTRV271 02661000 CVTRV273 EQU CVTRV271 02662000 CVTRV272 EQU CVTRV271 02663000 CVTRV270 EQU CVTRV262 02664000 CVTRV269 EQU CVTRV262 02665000 CVTRV268 EQU CVTRV262 02666000 CVTRV267 EQU CVTRV262 02667000 CVTRV266 EQU CVTRV262 02668000 CVTRV265 EQU CVTRV262 02669000 CVTRV264 EQU CVTRV262 02670000 CVTRV263 EQU CVTRV262 02671000 CVTVFP EQU CVTS01+464 02672000 CVTVSI EQU CVTS01+460 02673000 CVTVPSIB EQU CVTS01+456 02674000 CVTMFACT EQU CVTMFRTR 02675000 CVTMFCTL EQU CVTS01+448 02676000 CVTPVBP EQU CVTS01+444 02677000 CVTPWI EQU CVTS01+440 02678000 CVTRV254 EQU CVTS01+438 02679000 CVTRV253 EQU CVTS01+436 02680000 CVTRV252 EQU CVTS01+434 02681000 CVTRV251 EQU CVTS01+433 02682000 CVTRV250 EQU CVTS01+432 02683000 CVTRV249 EQU CVTS01+431 02684000 CVTRV248 EQU CVTS01+430 02685000 CVTRV247 EQU CVTS01+429 02686000 CVTRV246 EQU CVTS01+428 02687000 CVTRV245 EQU CVTRV237 02688000 CVTRV244 EQU CVTRV237 02689000 CVTRV243 EQU CVTRV237 02690000 CVTRV242 EQU CVTRV237 02691000 CVTRV241 EQU CVTRV237 02692000 CVTRV240 EQU CVTRV237 02693000 CVTRV239 EQU CVTRV237 02694000 CVTRV238 EQU CVTRV237 02695000 CVTRV236 EQU CVTRV228 02696000 CVTRV235 EQU CVTRV228 02697000 CVTRV234 EQU CVTRV228 02698000 CVTRV233 EQU CVTRV228 02699000 CVTRV232 EQU CVTRV228 02700000 CVTRV231 EQU CVTRV228 02701000 CVTRV230 EQU CVTRV228 02702000 CVTRV229 EQU CVTRV228 02703000 CVTRV227 EQU CVTRV219 02704000 CVTRV226 EQU CVTRV219 02705000 CVTRV225 EQU CVTRV219 02706000 CVTRV224 EQU CVTRV219 02707000 CVTRV223 EQU CVTRV219 02708000 CVTRV222 EQU CVTRV219 02709000 CVTRV221 EQU CVTRV219 02710000 CVTRV220 EQU CVTRV219 02711000 CVTRV218 EQU CVTRV210 02712000 CVTRV217 EQU CVTRV210 02713000 CVTRV216 EQU CVTRV210 02714000 CVTRV215 EQU CVTRV210 02715000 CVTRV214 EQU CVTRV210 02716000 CVTRV213 EQU CVTRV210 02717000 CVTRV212 EQU CVTRV210 02718000 CVTRV211 EQU CVTRV210 02719000 CVTLCCAT EQU CVTS01+420 02720000 CVTPCCAT EQU CVTS01+416 02721000 CVTIPCRP EQU CVTS01+412 02722000 CVTIPCRI EQU CVTS01+408 02723000 CVTIPCDS EQU CVTS01+404 02724000 CVTAIDVT EQU CVTS01+400 02725000 CVTSSAP EQU CVTS01+396 02726000 CVTEHCIR EQU CVTS01+392 02727000 CVTEHDEF EQU CVTS01+388 02728000 CVTDAIR EQU CVTS01+384 02729000 CVTPERFM EQU CVTS01+380 02730000 CVT044R2 EQU CVTS01+376 02731000 CVTFETCH EQU CVTS01+372 02732000 CVTRSTWD EQU CVTS01+368 02733000 CVTSPOST EQU CVTS01+364 02734000 CVTIOBP EQU CVTS01+360 02735000 CVTASMVT EQU CVTS01+356 02736000 CVTRECRQ EQU CVTS01+352 02737000 CVTWSAC EQU CVTS01+348 02738000 CVTRV149 EQU CVTS01+344 02739000 CVTWSAL EQU CVTS01+340 02740000 CVTSPSA EQU CVTS01+336 02741000 CVTGLMN EQU CVTS01+332 02742000 CVTVEAC0 EQU CVTS01+328 02743000 CVT062R1 EQU CVTS01+324 02744000 CVTRPOST EQU CVTS01+320 02745000 CVTDQIQE EQU CVTS01+316 02746000 CVTLKRMA EQU CVTS01+308 02747000 CVTRSPIE EQU CVTS01+304 02748000 CVTRENQ EQU CVTS01+300 02749000 CVTLQCB EQU CVTS01+296 02750000 CVTFQCB EQU CVTS01+292 02751000 CVTQCS01 EQU CVTS01+288 02752000 CVTAPFT EQU CVTS01+284 02753000 CVTPARRL EQU CVTS01+280 02754000 CVTVWAIT EQU CVTS01+276 02755000 CVTGSPL EQU CVTS01+272 02756000 CVTLSMQ EQU CVTS01+268 02757000 CVTGSMQ EQU CVTS01+264 02758000 CVTEXPRO EQU CVTS01+260 02759000 CVTOPCTP EQU CVTS01+256 02760000 CVTSIC EQU CVTS01+252 02761000 CVTTPIOS EQU CVTS01+248 02762000 CVTRTMS EQU CVTS01+244 02763000 CVTSDBF EQU CVTS01+240 02764000 CVTSCBP EQU CVTS01+236 02765000 CVTSDMP EQU CVTS01+232 02766000 CVTSV60 EQU CVTS01+228 02767000 CVTRTMCT EQU CVTS01+224 02768000 CVTASCBL EQU CVTS01+220 02769000 CVTASCBH EQU CVTS01+216 02770000 CVTGDA EQU CVTS01+212 02771000 CVTASVT EQU CVTS01+208 02772000 CVTVVMDI EQU CVTS01+204 02773000 CVTAQTOP EQU CVTS01+200 02774000 CVTIOSCS EQU CVTS01+196 02775000 CVTSDRM EQU CVTS01+192 02776000 CVTOPTE EQU CVTS01+188 02777000 CVTSTXU EQU CVTS01+184 02778000 CVTQUIS EQU CVTS01+180 02779000 CVTPARS EQU CVTS01+176 02780000 CVTS1EE EQU CVTS01+172 02781000 CVTFRAS EQU CVTS01+168 02782000 CVTQSAS EQU CVTS01+164 02783000 CVTCRAS EQU CVTS01+160 02784000 CVTCRMN EQU CVTS01+156 02785000 CVTDELCP EQU CVTS01+152 02786000 CVTFRECL EQU CVTS01+148 02787000 CVTGETCL EQU CVTS01+144 02788000 CVTBLDCP EQU CVTS01+140 02789000 CVTAUTHL EQU CVTS01+136 02790000 CVTSCAN EQU CVTS01+132 02791000 CVTRV144 EQU CVTS01+130 02792000 CVTMAXMP EQU CVTS01+128 02793000 CVTSTCK EQU CVTS01+124 02794000 CVTRV139 EQU CVTS01+123 02795000 CVTDSSAC EQU CVTS01+122 02796000 CVTRV513 EQU CVTS01+121 02797000 CVTIOSPL EQU CVTS01+120 02798000 CVTPTGT EQU CVTS01+116 02799000 CVTCSPIE EQU CVTS01+112 02800000 CVTSMFEX EQU CVTS01+108 02801000 CVTOLT0A EQU CVTS01+104 02802000 CVTSRBRT EQU CVTS01+100 02803000 CVTPUTL EQU CVTS01+96 02804000 CVTASCRL EQU CVTS01+92 02805000 CVTASCRF EQU CVTS01+88 02806000 CVTRV326 EQU CVTS01+84 02807000 CVTRV325 EQU CVTS01+80 02808000 CVTRV324 EQU CVTS01+76 02809000 CVT0VL01 EQU CVTS01+72 02810000 CVTSHRVM EQU CVTS01+68 02811000 CVTRV332 EQU CVTS01+64 02812000 CVTTAS EQU CVTS01+60 02813000 CVTRSCN EQU CVTS01+56 02814000 CVTTRAC2 EQU CVTS01+54 02815000 CVTTRACE EQU CVTS01+52 02816000 CVTAPG EQU CVTS01+51 02817000 CVTSDTRC EQU CVTCTLFG 02818000 CVTGTRCE EQU CVTCTLFG 02819000 CVTNOMP EQU CVTCTLFG 02820000 CVTRSV79 EQU CVTCTLFG 02821000 CVTDSTAT EQU CVTCTLFG 02822000 CVTRSV78 EQU CVTCTLFG 02823000 CVTRV333 EQU CVTCTLFG 02824000 CVTRV323 EQU CVTCTLFG 02825000 CVTSPVLK EQU CVTS01+49 02826000 CVTRSV77 EQU CVTS01+48 02827000 CVTRV331 EQU CVTS01+44 02828000 CVTRV330 EQU CVTS01+40 02829000 CVTRV329 EQU CVTS01+36 02830000 CVTRV328 EQU CVTS01+32 02831000 CVTRV322 EQU CVTS01+28 02832000 CVTSLID EQU CVTSLIDA+1 02833000 CVTSYLK EQU CVTSLIDA 02834000 CVTRV321 EQU CVTS01+20 02835000 CVTRV320 EQU CVTS01+16 02836000 CVTLPDIR EQU CVTLPDIA+1 02837000 CVTRSV69 EQU CVTDIRST 02838000 CVTRSV68 EQU CVTDIRST 02839000 CVTRSV67 EQU CVTDIRST 02840000 CVTRSV66 EQU CVTDIRST 02841000 CVTRSV65 EQU CVTDIRST 02842000 CVTRSV64 EQU CVTDIRST 02843000 CVTRSV63 EQU CVTDIRST 02844000 CVTDICOM EQU CVTDIRST 02845000 CVTPVTP EQU CVTS01+8 02846000 CVTLPDSR EQU CVTS01+4 02847000 CVTGETL EQU CVTS01 02848000 @NM00223 EQU JOBNAME1 02849000 @NM00222 EQU MSGAREA 02850000 @NM00221 EQU SUPVLIST+4 02851000 @NM00220 EQU IEFPARM+12 02852000 MSGLGTHD EQU @NM00217+1 02853000 @NM00218 EQU @NM00217 02854000 MSGLGTHC EQU @NM00215+1 02855000 @NM00216 EQU @NM00215 02856000 @NM00214 EQU MSGRTNHD+8 02857000 @NM00213 EQU MSGRTNHD+4 02858000 @NM00212 EQU MSGRTNHD 02859000 DSNAME EQU DSNENTRY+3 02860000 @NM00211 EQU DSNENTRY+1 02861000 STEP# EQU DSNENTRY 02862000 @NM00210 EQU STBLPARM+12 02863000 @NM00209 EQU STBLPARM 02864000 @NM00208 EQU OUTREC+7 02865000 @NM00207 EQU INPUTREC+7 02866000 @NM00206 EQU INPUTREC+3 02867000 MSSPARE EQU BASES01+48 02868000 MSUCBAL EQU BASES01+44 02869000 MSUCBPR EQU BASES01+40 02870000 MSBOBECB EQU BASES01+36 02871000 MSSJQ EQU BASES01+32 02872000 MSECB EQU BASES01+28 02873000 MSPBP EQU BASES01+24 02874000 MSERM EQU BASES01+22 02875000 MSPASS EQU BASES01+14 02876000 MSVRB EQU BASES01+6 02877000 MSQHR EQU MSFHF 02878000 @NM00205 EQU MSFHF 02879000 MSPSDT EQU MSFHF 02880000 MSREPLYB EQU MSFHF 02881000 MSFAX EQU MSFHF 02882000 MSTTT EQU MSFHF 02883000 MSCSD EQU MSFHF 02884000 MSNMF EQU MSFHF 02885000 MSJNF EQU MSSSA 02886000 MSYOUT EQU MSNWP 02887000 MSNRP EQU MSSSA 02888000 MSSRDR EQU MSREOF 02889000 MSWRLOG EQU MSSSA 02890000 MSNUPSW EQU MSSSA 02891000 MSWRPEN EQU MSSSA 02892000 MSSSSIPL EQU MSINLSW 02893000 MSSUM EQU MSECBFL 02894000 MSMCR EQU MSECBFL 02895000 MSYSOUT EQU MSECBFL 02896000 MSYSIN EQU MSECBFL 02897000 MSATTN EQU MSECBFL 02898000 MSWTL EQU MSECBFL 02899000 MSWTO EQU MSECBFL 02900000 MSEXT EQU MSECBFL 02901000 MSCCS EQU MSPFG 02902000 MSBSP EQU MSPFG 02903000 MSSYT EQU MSPFG 02904000 MSSYN EQU MSPFG 02905000 MSICR EQU MSPFG 02906000 MSCMC EQU MSPFG 02907000 MSPNB EQU MSPFG 02908000 MSDATE EQU MSPFG 02909000 @NM00204 EQU MSBTN 02910000 MSTN EQU MSBTN 02911000 @NM00203 EQU MSBTN 02912000 @NM00202 EQU MSBTN 02913000 MSSO EQU MSBTN 02914000 MSROLFLG EQU MSBTN 02915000 MSCANFLG EQU MSBTN 02916000 MSCONFLG EQU MSBTN 02917000 MSPNIP EQU MSNTAL 02918000 MSQNIP EQU MSNTAL 02919000 MSCURE34 EQU MSNTAL 02920000 @NM00201 EQU MSNTAL 02921000 @NM00200 EQU MSNTAL 02922000 @NM00199 EQU MSNTAL 02923000 @NM00198 EQU MSNTAL 02924000 MSNIP EQU MSNTAL 02925000 @NM00197 EQU MS1BASEX+40 02926000 @NM00196 EQU MS1BASEX+20 02927000 @NM00195 EQU MS1BASEX 02928000 @NM00194 EQU BASE+128 02929000 MSLGJSCB EQU BASE+124 02930000 @NM00193 EQU MSSTRTSW 02931000 MSSTRTP EQU MSSTRTSW 02932000 MSSTRTW EQU MSSTRTSW 02933000 @NM00192 EQU MSWTRSW 02934000 MSWTRP EQU MSWTRSW 02935000 MSWTRW EQU MSWTRSW 02936000 @NM00191 EQU MSWLOGSW 02937000 MSWLOGP EQU MSWLOGSW 02938000 MSWLOGW EQU MSWLOGSW 02939000 @NM00190 EQU MSCLOSSW 02940000 MSCLOSP EQU MSCLOSSW 02941000 MSCLOSW EQU MSCLOSSW 02942000 MSLOGLMT EQU @NM00189+1 02943000 MSLOGCLS EQU @NM00189 02944000 BAASCB EQU BASE+100 02945000 MSSMFPRM EQU BASE+96 02946000 MSCOMMND EQU BASE+92 02947000 BASP12 EQU BASE+90 02948000 BASTCNT EQU BASE+88 02949000 BASESCT EQU BASE+86 02950000 BAJNCNT EQU BASE+84 02951000 BASUBECB EQU BASE+80 02952000 BALOGCOM EQU BASE+76 02953000 BADACNT EQU BASE+74 02954000 BATACNT EQU BASE+72 02955000 BAJBNR EQU BASE+64 02956000 BASP11 EQU BASE+62 02957000 BALCCNT EQU BASE+61 02958000 BADUMPID EQU BASE+60 02959000 BABCMAX EQU BASE+58 02960000 BAMONTR2 EQU BASE+57 02961000 @NM00188 EQU BAMONITR 02962000 BAMACTVE EQU BAMONITR 02963000 @NM00187 EQU BAMONITR 02964000 @NM00186 EQU BAMONITR 02965000 @NM00185 EQU BAMONITR 02966000 @NM00184 EQU BAMONITR 02967000 BASPACE EQU BAMONITR 02968000 BADSN EQU BAMONITR 02969000 BADSO EQU BASE+52 02970000 BALOGECB EQU BASE+48 02971000 @NM00183 EQU BASPBYTE 02972000 @NM00182 EQU BASPBYTE 02973000 @NM00181 EQU BASPBYTE 02974000 @NM00180 EQU BASPBYTE 02975000 @NM00179 EQU BASPBYTE 02976000 BAMASCH EQU BASPBYTE 02977000 BATRACE EQU BASPBYTE 02978000 BAMSSTAR EQU BASPBYTE 02979000 @NM00178 EQU MSLOGST 02980000 @NM00177 EQU MSLOGST 02981000 MSLOGSTA EQU MSLOGST 02982000 MSLOGIPL EQU MSLOGST 02983000 MSLOGDAR EQU MSLOGST 02984000 MSLOGCOM EQU MSLOGST 02985000 MSLOGTHD EQU MSLOGST 02986000 MSLOGENQ EQU MSLOGST 02987000 BAMIPAR2 EQU BASE+44 02988000 BAMINPAR EQU BASE+42 02989000 BAICTR EQU BASE+38 02990000 @NM00176 EQU BASE+37 02991000 BADSET EQU BARSW 02992000 BANOSET EQU BARSW 02993000 BAMIDNT EQU BARSW 02994000 BAHR EQU BARSW 02995000 BAVU EQU BARSW 02996000 BAINTSET EQU BARSW 02997000 MSTODWTO EQU BARSW 02998000 BAIN EQU BARSW 02999000 BACV EQU BASE+32 03000000 @NM00175 EQU BALOG 03001000 @NM00174 EQU BALOG 03002000 @NM00173 EQU BALOG 03003000 @NM00172 EQU BALOG 03004000 @NM00171 EQU BALOG 03005000 @NM00170 EQU BALOG 03006000 @NM00169 EQU BALOG 03007000 BALOGINT EQU BALOG 03008000 MSLOGSVC EQU BALGSTAT 03009000 BAPRC EQU BASE+20 03010000 BAQ EQU BASE+16 03011000 BAIPLCC EQU @NM00167+2 03012000 @NM00168 EQU @NM00167 03013000 BAIPL EQU BASE+12 03014000 BALAD EQU BASE+8 03015000 BATRM EQU BASE+4 03016000 BACHN EQU BASE 03017000 SWCHNPTR EQU SWAEPA+12 03018000 SWLNGTH EQU SWAEPA+8 03019000 SWBLKID EQU SWVAFW+3 03020000 @NM00166 EQU CSD+160 03021000 CSDMASK EQU CSD+128 03022000 CSDUCNT EQU CSD+124 03023000 CSDTCNT EQU CSD+120 03024000 CSDGDTOD EQU CSD+116 03025000 CSDGDINT EQU CSD+112 03026000 CSDGDCC EQU CSD+108 03027000 CSDDDRCT EQU CSD+106 03028000 CSDRV044 EQU CSD+104 03029000 CSDMAFF EQU CSD+24 03030000 CSDRV038 EQU CSDFLAGS 03031000 CSDRV037 EQU CSDFLAGS 03032000 CSDRV036 EQU CSDFLAGS 03033000 CSDRV035 EQU CSDFLAGS 03034000 CSDRV034 EQU CSDFLAGS 03035000 CSDRV033 EQU CSDFLAGS 03036000 CSDRV032 EQU CSDFLAGS 03037000 CSDMP EQU CSDFLAGS 03038000 CSDACR EQU CSD+22 03039000 CSDMF1CP EQU CSD+20 03040000 CSDRV043 EQU CSD+16 03041000 CSDRV030 EQU CSDSCFL4 03042000 CSDRV029 EQU CSDSCFL4 03043000 CSDRV028 EQU CSDSCFL4 03044000 CSDRV027 EQU CSDSCFL4 03045000 CSDRV026 EQU CSDSCFL4 03046000 CSDRV025 EQU CSDSCFL4 03047000 CSDRV024 EQU CSDSCFL4 03048000 CSDRV023 EQU CSDSCFL4 03049000 CSDRV022 EQU CSDSCFL3 03050000 CSDRV021 EQU CSDSCFL3 03051000 CSDRV020 EQU CSDSCFL3 03052000 CSDRV019 EQU CSDSCFL3 03053000 CSDRV018 EQU CSDSCFL3 03054000 CSDRV017 EQU CSDSCFL3 03055000 CSDRV016 EQU CSDSCFL3 03056000 CSDRV015 EQU CSDSCFL3 03057000 CSDRV014 EQU CSDSCFL2 03058000 CSDRV013 EQU CSDSCFL2 03059000 CSDRV012 EQU CSDSCFL2 03060000 CSDRV011 EQU CSDSCFL2 03061000 CSDRV010 EQU CSDSCFL2 03062000 CSDRV009 EQU CSDSCFL2 03063000 CSDRV008 EQU CSDSCFL2 03064000 CSDRV007 EQU CSDSCFL2 03065000 CSDRV006 EQU CSDSCFL1 03066000 CSDRV005 EQU CSDSCFL1 03067000 CSDRV004 EQU CSDSCFL1 03068000 CSDRV003 EQU CSDSCFL1 03069000 CSDRV002 EQU CSDSCFL1 03070000 CSDRV001 EQU CSDSCFL1 03071000 CSDSYSND EQU CSDSCFL1 03072000 CSDRV042 EQU CSDSCFL1 03073000 CSDCPUOL EQU CSD+10 03074000 CSDSAFF EQU CSDCPUAL 03075000 CSDCHAD EQU CSD+6 03076000 CSDCSD EQU CSD 03077000 @NM00165 EQU PPTFLGS+1 03078000 @NM00164 EQU PPTPUBYT 03079000 PPTN2LP EQU PPTPUBYT 03080000 PPT1LPU EQU PPTPUBYT 03081000 PPT2LPU EQU PPTPUBYT 03082000 PPTKEY EQU PPT+9 03083000 @NM00163 EQU PPTBYTE1 03084000 PPTNOPAS EQU PPTBYTE1 03085000 PPTNDSI EQU PPTBYTE1 03086000 PPTSYSTK EQU PPTBYTE1 03087000 PPTPRIV EQU PPTBYTE1 03088000 PPTNSWP EQU PPTBYTE1 03089000 PPTSKEY EQU PPTBYTE1 03090000 PPTNCNCL EQU PPTBYTE1 03091000 QMRBN EQU SWAQMPA+12 03092000 @NM00162 EQU SWAQMPA+1 03093000 QMSWSP EQU SWAQMPA 03094000 QMPNC EQU QMPCMNC 03095000 QMPCM EQU QMPCMNC 03096000 QMEIA EQU QMPA+28 03097000 QMWTQ EQU QMPA+24 03098000 QMRSD1 EQU QMPA+22 03099000 QMTID EQU QMPA+20 03100000 QMLNK EQU QMPA+18 03101000 QMPRI EQU QMPA+17 03102000 @NM00161 EQU QMSTA 03103000 QMSJNL EQU QMSTA 03104000 @NM00160 EQU QMSTA 03105000 QMTPY EQU QMPA+15 03106000 QMNOT EQU QMPA+14 03107000 QMTLN EQU QMPA+12 03108000 QMTST EQU QMPA+11 03109000 QMFLT EQU QMPA+9 03110000 QMPEB EQU QMNAM+4 03111000 QMCAN EQU QMNAM 03112000 @NM00159 EQU RTNEXAD 03113000 @NM00158 EQU RTNEXNM 03114000 IELCOM EQU IELEXHDR+4 03115000 @NM00157 EQU IELOPTS+7 03116000 IELSWAS EQU IELOPTS+6 03117000 IELNSYS EQU IELOPSW3 03118000 @NM00156 EQU IELOPSW3 03119000 @NM00155 EQU IELOPSW3 03120000 IELTSIZ EQU IELOPTS+4 03121000 IELOENQU EQU IELOPSW2 03122000 IELONORC EQU IELOPSW2 03123000 @NM00154 EQU IELOPSW2 03124000 @NM00153 EQU IELOPSW2 03125000 @NM00152 EQU IELOPSW2 03126000 @NM00151 EQU IELOPSW2 03127000 IELCRF EQU IELOPSW2 03128000 IELTIMEF EQU IELOPSW2 03129000 @NM00150 EQU IELOPSW1 03130000 IELICMDF EQU IELOPSW1 03131000 IELONEJF EQU IELOPSW1 03132000 IELCANF EQU IELOPSW1 03133000 @NM00149 EQU IELOPSW1 03134000 @NM00148 EQU IELOPSW1 03135000 IELDWFF EQU IELOPSW1 03136000 IELDPSWA EQU IELOPSW1 03137000 IELOPLEN EQU IELOPTS 03138000 @NM00147 EQU IELLAST 03139000 IELEND EQU IELLAST 03140000 IELSTEPL EQU IELLIST+16 03141000 IELRTNA EQU IELLIST+12 03142000 IELCSCB EQU IELLIST+4 03143000 IELSSOBA EQU IELLIST 03144000 ACTACCNT EQU IEFAACTB+32 03145000 ACTJNFLD EQU IEFAACTB+31 03146000 ACTJTIME EQU IEFAACTB+28 03147000 ACTPRGNM EQU IEFAACTB+8 03148000 @NM00146 EQU IEFAACTB+7 03149000 ACTNEXT EQU IEFAACTB+4 03150000 ACTIDENT EQU IEFAACTB+3 03151000 ACTDSKAD EQU IEFAACTB 03152000 @NM00145 EQU INJMJCT+175 03153000 JCTVULDP EQU INJMJCT+172 03154000 JCTACODE EQU INJMJCT+168 03155000 JCTPRFMF EQU INJMJCT+167 03156000 JCTUSER EQU INJMJCT+160 03157000 JCTSSD EQU INJMJCT+157 03158000 @NM00144 EQU INJMJCT+156 03159000 JCTSRBT EQU INJMJCT+152 03160000 JCTJMRJD EQU INJMJCT+149 03161000 JCTJMRJT EQU INJMJCT+146 03162000 JCTJMRSS EQU INJMJCT+143 03163000 JCTJMRTL EQU INJMJCT+140 03164000 JCTJMRCL EQU INJMJCT+139 03165000 JCTJMROP EQU INJMJCT+138 03166000 JCTJMRD EQU INJMJCT+137 03167000 JCTJMR EQU INJMJCT+134 03168000 JCTCKIDT EQU INJMJCT+118 03169000 JCTCKIDL EQU INJMJCT+117 03170000 @NM00143 EQU JCTSTAT2 03171000 JCTBLP EQU JCTSTAT2 03172000 JCTPERFM EQU JCTSTAT2 03173000 JCTSWSM EQU JCTSTAT2 03174000 JCTENDIT EQU JCTSTAT2 03175000 JCTSPSYS EQU JCTSTAT2 03176000 @NM00142 EQU INJMJCT+115 03177000 JCTJSBTM EQU JCTJSB 03178000 JCTJSBEX EQU JCTJSB 03179000 JCTJSBAL EQU JCTJSB 03180000 JCTJSBIN EQU JCTJSB 03181000 @NM00141 EQU JCTJSB 03182000 JCTVOLSQ EQU INJMJCT+110 03183000 JCTNRCKP EQU INJMJCT+108 03184000 JCTNTRK EQU INJMJCT+107 03185000 JCTCKTTR EQU INJMJCT+104 03186000 JCTDEVT EQU INJMJCT+100 03187000 @NM00140 EQU INJMJCT+99 03188000 JCTSTIOT EQU INJMJCT+96 03189000 JCTSNUMB EQU INJMJCT+95 03190000 JCTQIDNT EQU INJMJCT+94 03191000 JCTEQREG EQU INJMJCT+92 03192000 @NM00139 EQU INJMJCT+91 03193000 JCTDSDRA EQU JCTRSW2 03194000 JCTDSOJB EQU JCTRSW2 03195000 JCTDSOCR EQU JCTRSW2 03196000 JCTRESTT EQU JCTRSW2 03197000 JCTNOCKP EQU JCTRSW2 03198000 JCTNORST EQU JCTRSW2 03199000 JCTNARST EQU JCTRSW2 03200000 JCTSYSCK EQU JCTRSW2 03201000 @NM00138 EQU JCTRSW1 03202000 JCTSTEPR EQU JCTRSW1 03203000 JCTCKPTR EQU JCTRSW1 03204000 JCTCKFT EQU JCTRSW1 03205000 JCTCONTR EQU JCTRSW1 03206000 JCTSTERM EQU JCTRSW1 03207000 @NM00137 EQU JCTCCODE+3 03208000 JCTJDPOP EQU JCTCCODE+2 03209000 JCTJDPCD EQU JCTCCODE 03210000 @NM00136 EQU INJMJCT+53 03211000 JCTSCT EQU INJMJCT+52 03212000 JCTSMRBA EQU INJMJCT+44 03213000 @NM00135 EQU INJMJCT+43 03214000 JCTACTAD EQU INJMJCT+40 03215000 @NM00134 EQU INJMJCT+39 03216000 JCTJCTX EQU INJMJCT+36 03217000 @NM00133 EQU INJMJCT+35 03218000 JCTSDKAD EQU INJMJCT+32 03219000 JCTJCSMF EQU INJMJCT+31 03220000 JCTGDGNT EQU INJMJCT+28 03221000 @NM00132 EQU INJMJCT+27 03222000 JCTPDIP EQU INJMJCT+24 03223000 JCTJTPTN EQU INJMJCT+16 03224000 JCTJPRTY EQU JCTJBYTE 03225000 INCMMGL1 EQU JCTJMGLV 03226000 INCMMGL2 EQU JCTJMGLV 03227000 @NM00131 EQU JCTJMGLV 03228000 INCMALL EQU JCTJMGLV 03229000 JCTJMGPO EQU INJMJCT+6 03230000 INCMNSET EQU JCTJSTAT 03231000 INCMCAT EQU INDMCTLG 03232000 JCTABEND EQU JCTJSTAT 03233000 @NM00130 EQU JCTJSTAT 03234000 JCTJSTPC EQU JCTJSTAT 03235000 @NM00129 EQU JCTJSTAT 03236000 JCTJBLBS EQU JCTJSTAT 03237000 JCTIDENT EQU INJMJCT+3 03238000 JCTDSKAD EQU INJMJCT 03239000 JESPJESN EQU JESCT+28 03240000 JESSSCT EQU JESCT+24 03241000 JESRESQM EQU JESCT+16 03242000 JESUNITS EQU JESCT+4 03243000 @NM00128 EQU JESCT 03244000 @NM00127 EQU @NM00125+1 03245000 SCTONLY EQU SCTABCND 03246000 SCTEVEN EQU SCTABCND 03247000 SCTABEND EQU SCTABCND 03248000 SCTONLYC EQU SCTABCND 03249000 SCTABCAN EQU SCTABCND 03250000 @NM00126 EQU SCTABCND 03251000 @NM00124 EQU INSMSCT+173 03252000 @NM00123 EQU SCTSTEND 03253000 SCTSYSCK EQU SCTSTEND 03254000 SCTSTPND EQU SCTSTEND 03255000 SCTSTSRT EQU SCTSTEND 03256000 @NM00122 EQU INSMSCT+168 03257000 SCTCATCT EQU INSMSCT+166 03258000 SCTSDPSA EQU SCTCDENT+3 03259000 SCTSDPOP EQU SCTCDENT+2 03260000 SCTSDPCD EQU SCTCDENT 03261000 @NM00121 EQU INSMSCT+117 03262000 SCTTIOT EQU INSMSCT+105 03263000 @NM00120 EQU SCTBCT 03264000 SCTJBEND EQU SCTBCT 03265000 SCTSPSYS EQU SCTBCT 03266000 SCTSTPLB EQU SCTBCT 03267000 @NM00119 EQU SCTBCT 03268000 SCTMCVOL EQU SCTBCT 03269000 @NM00118 EQU SCTBCT 03270000 SCTGOTTR EQU INSMSCT+100 03271000 SCTSMF EQU INSMSCT+96 03272000 @NM00117 EQU SCTSDPTY+1 03273000 SCTSDP EQU SCTSDPTY 03274000 @NM00116 EQU SCTSDPTY 03275000 @NM00115 EQU SCTSDPTY 03276000 SCTNIUSL EQU INSMSCT+92 03277000 @NM00114 EQU INSMSCT+90 03278000 SCTMSSZE EQU INSMSCT+88 03279000 SCTPCAT EQU INSMSCT+84 03280000 SCTLDSTB EQU INSMSCT+80 03281000 SCTSRBT EQU INSMSCT+76 03282000 SCTMSADR EQU INSMSCT+72 03283000 @NM00113 EQU INSMSCT+71 03284000 SCTXBTTR EQU INSMSCT+68 03285000 SCTJSCAT EQU SCTSTYPE 03286000 SCTINITB EQU SCTSTYPE 03287000 SCTSJFHK EQU SCTSTYPE 03288000 SCTOUTMC EQU SCTSTYPE 03289000 SCTINPUT EQU SCTSTYPE 03290000 SCTGOSTP EQU SCTSTYPE 03291000 @NM00112 EQU INSMSCT+66 03292000 SCTNSMSG EQU INSMSCT+65 03293000 @NM00111 EQU INSMSCT+62 03294000 SCTRPACT EQU INSMSCT+60 03295000 SCTSNAME EQU INSMSCT+52 03296000 SCTSCLPC EQU INSMSCT+44 03297000 @NM00110 EQU INSMSCT+43 03298000 SCTADSTB EQU INSMSCT+40 03299000 @NM00109 EQU INSMSCT+36 03300000 @NM00108 EQU INSMSCT+35 03301000 SCTAFACT EQU INSMSCT+32 03302000 SCTDDNT EQU INSMSCT+28 03303000 @NM00107 EQU INSMSCT+27 03304000 SCTLSIOT EQU INSMSCT+24 03305000 @NM00106 EQU INSMSCT+23 03306000 SCTANSCT EQU INSMSCT+20 03307000 @NM00105 EQU INSMSCT+19 03308000 SCTAALOC EQU INSMSCT+16 03309000 @NM00104 EQU INSMSCT+15 03310000 SCTFSIOT EQU INSMSCT+12 03311000 SCTLALOC EQU INSMSCT+10 03312000 SCTSEXEC EQU INSMSCT+8 03313000 SCTSTIME EQU INSMSCT+5 03314000 INCMSSTS EQU SCTSSTAT 03315000 SCTGRPH EQU SCTSSTAT 03316000 SCTKEY0 EQU SCTSSTAT 03317000 SCTDORST EQU SCTSSTAT 03318000 SCTNOCKP EQU SCTSSTAT 03319000 SCTNORST EQU SCTSSTAT 03320000 EACAUSER EQU SCTSSTAT 03321000 EAADDRBT EQU SCTSSTAT 03322000 SCTTBLID EQU INSMSCT+3 03323000 SCTDISKA EQU INSMSCT 03324000 STESMFTC EQU STEPL+12 03325000 STEFCHLB EQU STEFLAGS 03326000 STESTPLB EQU STEFLAGS 03327000 STEJOBLB EQU STEFLAGS 03328000 STEPARAM EQU STEPL+4 03329000 STELCT EQU STEPL 03330000 SSIBSUSE EQU SSIB+32 03331000 SSIBRSV1 EQU SSIB+28 03332000 SSIBDEST EQU SSIB+20 03333000 SSIBSSNM EQU SSIB+8 03334000 SSIBRESV EQU SSIB+7 03335000 @NM00102 EQU SSIBFLG1 03336000 SSIBPJES EQU SSIBFLG1 03337000 SSIBLEN EQU SSIB+4 03338000 SSIBID EQU SSIB 03339000 @NM00101 EQU SSRQ+7 03340000 @NM00100 EQU SSRQFLG1 03341000 SSRQCNRS EQU SSRQFLG1 03342000 SSRQCHRS EQU SSRQFLG1 03343000 SSRQSTRS EQU SSRQFLG1 03344000 @NM00099 EQU SSRQ+2 03345000 SSJSPSW2 EQU SSJSPAS2+1 03346000 SSJSPSL2 EQU SSJSPAS2 03347000 SSJSPSWD EQU SSJSPASS+1 03348000 SSJSPSLN EQU SSJSPASS 03349000 SSJSAIAD EQU SSJS+36 03350000 SSJSJMR EQU SSJS+28 03351000 SSJSIPRM EQU SSJS+24 03352000 SSJSTACB EQU SSJS+20 03353000 SSJSJACB EQU SSJS+16 03354000 SSJSMACB EQU SSJS+12 03355000 @NM00098 EQU SSJS+7 03356000 @NM00097 EQU SSJSFLG1 03357000 SSJSAIFG EQU SSJSFLG1 03358000 SSJSWARM EQU SSJSFLG1 03359000 @NM00096 EQU SSJSFLG1 03360000 SSJSCNRS EQU SSJSFLG1 03361000 SSJSCHRS EQU SSJSFLG1 03362000 SSJSSTRS EQU SSJSFLG1 03363000 SSJSSTEP EQU SSJS+4 03364000 @NM00095 EQU SSJS+2 03365000 CHARSV16 EQU CHSHORT+100 03366000 CHARSV15 EQU CHSHORT+96 03367000 CHJSCBVS EQU CHSHORT+92 03368000 CHUSCVS EQU CHSHORT+88 03369000 @NM00093 EQU CHSHORT+84 03370000 @NM00092 EQU CHSHORT+80 03371000 CHSQA EQU CHSHORT+44 03372000 CHQPA EQU CHSHORT+8 03373000 CHJCL EQU CHSHORT+4 03374000 CHSPC EQU CHSHORT 03375000 CHSPB EQU CHSTEP+4 03376000 CHTCB EQU CHSTEP+1 03377000 CHARSV23 EQU CHSWT 03378000 CHARSV22 EQU CHSWT 03379000 CHARSV21 EQU CHSWT 03380000 CHAC EQU CHSWT 03381000 CHPSF EQU CHSWT 03382000 CHPSD EQU CHSWT 03383000 CHJCT EQU CHSWT 03384000 CHARSV20 EQU CHSWT 03385000 CHCECB EQU CHASM+20 03386000 CHECB EQU CHASM+16 03387000 CHRGNAD EQU CHASM+12 03388000 CHARSV18 EQU CHRGNSZ+1 03389000 CHRPRTY EQU CHRGNSZ 03390000 @NM00091 EQU CHCIBP 03391000 CHEND EQU CHCIBP 03392000 CHECBP EQU CHASM 03393000 CHDER EQU CHPROCSN+4 03394000 CHARSV10 EQU CHACT1 03395000 CHARSV09 EQU CHACT1 03396000 CHARSV08 EQU CHACT1 03397000 CHARSV07 EQU CHACT1 03398000 CHARSV06 EQU CHACT1 03399000 CHARSV05 EQU CHACT1 03400000 CHARSV04 EQU CHACT1 03401000 CHRDWTR EQU CHACT1 03402000 CHARSV30 EQU CHPROCSN+2 03403000 CHQID EQU CHPROCSN 03404000 CHASID EQU CHTJID 03405000 CHCIBCTR EQU CHAIN+27 03406000 CHUNIT EQU CHAIN+24 03407000 CHPCOI EQU CHPARM 03408000 CHIFY EQU CHACT 03409000 CHAIFX EQU CHACT 03410000 CHCLD EQU CHACT 03411000 CHCL EQU CHACT 03412000 CHDSI EQU CHACT 03413000 CHDISC EQU CHACT 03414000 CHTERM EQU CHACT 03415000 CHSWAP EQU CHACT 03416000 CHABTERM EQU CHSTS 03417000 CHQSPC EQU CHSTS 03418000 CHSOUT EQU CHSTS 03419000 CHSYS EQU CHSTS 03420000 CHAP EQU CHSTS 03421000 CHPTR EQU CHAIN 03422000 TIOCNJOB EQU TIOT1 03423000 JSCBPMG EQU JSCBWTP+2 03424000 JSCBWTSP EQU JSCBWTP+1 03425000 JSCRSV23 EQU JSCBWTFG 03426000 JSCRSV22 EQU JSCBWTFG 03427000 JSCRSV21 EQU JSCBWTFG 03428000 JSCRSV20 EQU JSCBWTFG 03429000 JSCRSV19 EQU JSCBWTFG 03430000 JSCRSV18 EQU JSCBWTFG 03431000 JSCBRET EQU JSCBWTFG 03432000 JSCBIOFG EQU JSCBWTFG 03433000 @NM00086 EQU JSCBSEC1+60 03434000 JSCBQMPI EQU JSCBSEC1+56 03435000 JSCBPMSG EQU JSCBSWT1 03436000 JSCRSV16 EQU JSCBSWT1 03437000 JSCRSV15 EQU JSCBSWT1 03438000 JSCRSV14 EQU JSCBSWT1 03439000 JSCRSV13 EQU JSCBSWT1 03440000 JSCRSV12 EQU JSCBSWT1 03441000 JSCRSV11 EQU JSCBSWT1 03442000 JSCBPASS EQU JSCBSWT1 03443000 JSCBTTTR EQU JSCBSEC1+52 03444000 JSCRSV10 EQU JSCBSEC1+49 03445000 JSCBAUTH EQU JSCBOPTS 03446000 JSCSIOTS EQU JSCBOPTS 03447000 JSCRSV08 EQU JSCBOPTS 03448000 JSCRSV07 EQU JSCBOPTS 03449000 JSCRSV06 EQU JSCBOPTS 03450000 JSCBLONG EQU JSCBOPTS 03451000 JSCRSV05 EQU JSCBOPTS 03452000 JSCRSV04 EQU JSCBOPTS 03453000 JSCBSECB EQU JSCBSEC1+44 03454000 JSCRSV03 EQU JSCBSEC1+41 03455000 JSCBSTEP EQU JSCBSEC1+40 03456000 JSCBDCBA EQU JSCBDCB+1 03457000 JSCRSV02 EQU JSCBDCB 03458000 JSCBID EQU JSCBSEC1+32 03459000 JSCBDBTB EQU JSCBSEC1+28 03460000 JSCBIJSC EQU JSCBSEC1+24 03461000 JSCBTCBP EQU JSCBSEC1+20 03462000 JSCBPCC EQU JSCBSEC1+16 03463000 JSCBTCP EQU JSCBSEC1+12 03464000 JSCBSHR EQU JSCBSEC1+8 03465000 JSCHPCEA EQU JSCHPCE+1 03466000 JSCRSV32 EQU JSCHPCE 03467000 JSCRSV01 EQU JSCBSEC1 03468000 @NM00085 EQU IEZJSCB 03469000 @NM00084 EQU TCBXTNT2+32 03470000 TCBRV181 EQU TCBRV173 03471000 TCBRV180 EQU TCBRV173 03472000 TCBRV179 EQU TCBRV173 03473000 TCBRV178 EQU TCBRV173 03474000 TCBRV177 EQU TCBRV173 03475000 TCBRV176 EQU TCBRV173 03476000 TCBRV175 EQU TCBRV173 03477000 TCBRV174 EQU TCBRV173 03478000 TCBRV172 EQU TCBRV164 03479000 TCBRV171 EQU TCBRV164 03480000 TCBRV170 EQU TCBRV164 03481000 TCBRV169 EQU TCBRV164 03482000 TCBRV168 EQU TCBRV164 03483000 TCBRV167 EQU TCBRV164 03484000 TCBRV166 EQU TCBRV164 03485000 TCBRV165 EQU TCBRV164 03486000 TCBRV163 EQU TCBRV155 03487000 TCBRV162 EQU TCBRV155 03488000 TCBRV161 EQU TCBRV155 03489000 TCBRV160 EQU TCBRV155 03490000 TCBRV159 EQU TCBRV155 03491000 TCBRV158 EQU TCBRV155 03492000 TCBRV157 EQU TCBRV155 03493000 TCBRV156 EQU TCBRV155 03494000 TCBRV154 EQU TCBRV146 03495000 TCBRV153 EQU TCBRV146 03496000 TCBRV152 EQU TCBRV146 03497000 TCBRV151 EQU TCBRV146 03498000 TCBRV150 EQU TCBRV146 03499000 TCBRV149 EQU TCBRV146 03500000 TCBRV148 EQU TCBRV146 03501000 TCBRV147 EQU TCBRV146 03502000 TCBRV145 EQU TCBXTNT2+26 03503000 TCBRV144 EQU TCBXTNT2+24 03504000 TCBRV143 EQU TCBXTNT2+20 03505000 TCBRV142 EQU TCBXTNT2+16 03506000 TCBRSV49 EQU TCBXTNT2+12 03507000 TCBEVENT EQU TCBXTNT2+8 03508000 TCBRCMP EQU TCBXTNT2+5 03509000 TCBRSVAB EQU TCBXTNT2+4 03510000 TCBGTFA EQU TCBGTF+1 03511000 TCBRSV47 EQU TCBTFLG 03512000 TCBRSV46 EQU TCBTFLG 03513000 TCBRSV45 EQU TCBTFLG 03514000 TCBRSV44 EQU TCBTFLG 03515000 TCBRSV43 EQU TCBTFLG 03516000 TCBDSPIT EQU TCBTFLG 03517000 TCBERRTN EQU TCBTFLG 03518000 TCBASYNC EQU TCBTFLG 03519000 @NM00083 EQU TCB+296 03520000 TCBSVCA2 EQU TCB+292 03521000 TCBSWASA EQU TCB+288 03522000 TCBDBTB EQU TCB+284 03523000 TCBRPT EQU TCB+280 03524000 TCBRV141 EQU TCBRV133 03525000 TCBRV140 EQU TCBRV133 03526000 TCBRV139 EQU TCBRV133 03527000 TCBRV138 EQU TCBRV133 03528000 TCBRV137 EQU TCBRV133 03529000 TCBRV136 EQU TCBRV133 03530000 TCBRV135 EQU TCBRV133 03531000 TCBRV134 EQU TCBRV133 03532000 TCBRV132 EQU TCBRV124 03533000 TCBRV131 EQU TCBRV124 03534000 TCBRV130 EQU TCBRV124 03535000 TCBRV129 EQU TCBRV124 03536000 TCBRV128 EQU TCBRV124 03537000 TCBRV127 EQU TCBRV124 03538000 TCBRV126 EQU TCBRV124 03539000 TCBRV125 EQU TCBRV124 03540000 TCBRV123 EQU TCBFBYT2 03541000 TCBRV122 EQU TCBFBYT2 03542000 TCBECBNV EQU TCBFBYT2 03543000 TCBSSSYN EQU TCBFBYT2 03544000 TCBFPRAP EQU TCBFBYT2 03545000 TCBFDW EQU TCBFBYT2 03546000 TCBFMW EQU TCBFBYT2 03547000 TCBCNCB EQU TCBFBYT2 03548000 TCBLLH EQU TCBFBYT1 03549000 TCBRV113 EQU TCBFBYT1 03550000 TCBEOT EQU TCBFBYT1 03551000 TCBRTM2 EQU TCBFBYT1 03552000 TCBPGNLY EQU TCBFBYT1 03553000 TCBNDIOS EQU TCBFBYT1 03554000 TCBRV327 EQU TCBFBYT1 03555000 TCBEOTFM EQU TCBFBYT1 03556000 TCBAFFN EQU TCB+274 03557000 TCBRV326 EQU TCB+272 03558000 TCBUKYSP EQU TCB+268 03559000 TCBMODE EQU TCBESTAE+3 03560000 TCBERTYP EQU TCBESTAE+2 03561000 TCBRV314 EQU TCBESTRM 03562000 TCBRV313 EQU TCBESTRM 03563000 TCBRV312 EQU TCBESTRM 03564000 TCBRV311 EQU TCBESTRM 03565000 TCBRV310 EQU TCBESTRM 03566000 TCBRV309 EQU TCBESTRM 03567000 TCBRV308 EQU TCBESTRM 03568000 TCBETERM EQU TCBESTRM 03569000 TCBSCBKY EQU TCBESTAE 03570000 TCBRTM12 EQU TCB+260 03571000 TCBTCBID EQU TCB+256 03572000 TCBSTAFX EQU TCBSTAWA 03573000 TCBSWA EQU TCB+248 03574000 TCBFOEA EQU TCBFOE+1 03575000 TCBRSV42 EQU TCBFOE 03576000 TCBCCPVI EQU TCBXSCT+2 03577000 TCBRV325 EQU TCBXSCT+1 03578000 TCBRV324 EQU TCBXSCT1 03579000 TCBRV323 EQU TCBXSCT1 03580000 TCBRV322 EQU TCBXSCT1 03581000 TCBRV321 EQU TCBXSCT1 03582000 TCBRV320 EQU TCBXSCT1 03583000 TCBRV319 EQU TCBXSCT1 03584000 TCBS3A EQU TCBXSCT1 03585000 TCBACTIV EQU TCBXSCT1 03586000 TCBRSV41 EQU TCB+239 03587000 TCBTID EQU TCB+238 03588000 TCBRSVAA EQU TCB+237 03589000 TCBABCUR EQU TCB+236 03590000 TCBTMSAV EQU TCB+232 03591000 TCBIOTIM EQU TCB+228 03592000 TCBRTWA EQU TCB+224 03593000 TCBBACK EQU TCB+220 03594000 TCBTIRB EQU TCB+216 03595000 TCBAECB EQU TCB+212 03596000 TCBEXT2A EQU TCBEXT2+1 03597000 TCBRSV39 EQU TCBEXT2 03598000 TCBSTMCT EQU TCB+207 03599000 TCBSYSCT EQU TCB+206 03600000 TCBRSV37 EQU TCB+205 03601000 TCBEXSVC EQU TCBDAR 03602000 TCBDARMS EQU TCBDAR 03603000 TCBDARWT EQU TCBDAR 03604000 TCBDARO EQU TCBDAR 03605000 TCBDARMC EQU TCBDARC 03606000 TCBDARD EQU TCBDAR 03607000 TCBDARS EQU TCBDAR 03608000 TCBDARP EQU TCBDAR 03609000 TCBGTOFM EQU TCBFLGS7 03610000 TCBADMP EQU TCBFLGS7 03611000 TCBRSTSK EQU TCBFLGS7 03612000 TCBSVCS EQU TCBFLGS7 03613000 TCBSTACK EQU TCBFLGS7 03614000 TCBRSV34 EQU TCBFLGS7 03615000 TCBRSV33 EQU TCBFLGS7 03616000 TCBGPECB EQU TCBFLGS7 03617000 TCBNTJS EQU TCBFLGS6 03618000 TCBAPG EQU TCBFLGS6 03619000 TCBMIGR EQU TCBFLGS6 03620000 TCBRV303 EQU TCBFLGS6 03621000 TCBSPVLK EQU TCBFLGS6 03622000 TCBCPU EQU TCBFLGS6 03623000 TCBPIE17 EQU TCBFLGS6 03624000 TCBRV EQU TCBFLGS6 03625000 TCBRSV79 EQU TCBNDSP5 03626000 TCBRSV78 EQU TCBNDSP5 03627000 TCBRSV77 EQU TCBNDSP5 03628000 TCBRSV76 EQU TCBNDSP5 03629000 TCBRSV75 EQU TCBNDSP5 03630000 TCBRSV74 EQU TCBNDSP5 03631000 TCBRSV95 EQU TCBNDSP5 03632000 TCBRSV94 EQU TCBNDSP5 03633000 TCBRSV93 EQU TCBNDSP4 03634000 TCBRSV92 EQU TCBNDSP4 03635000 TCBRSV91 EQU TCBNDSP4 03636000 TCBRSV90 EQU TCBNDSP4 03637000 TCBRSV89 EQU TCBNDSP4 03638000 TCBRSV88 EQU TCBNDSP4 03639000 TCBRSV87 EQU TCBNDSP4 03640000 TCBRSV86 EQU TCBNDSP4 03641000 TCBEXT1A EQU TCBEXT1+1 03642000 TCBRSV32 EQU TCBEXT1 03643000 TCBEXCPD EQU TCB+192 03644000 TCBIOBRC EQU TCB+188 03645000 TCBDDWTC EQU TCB+186 03646000 TCBDDEXC EQU TCB+184 03647000 TCBJSCBB EQU TCBJSCB+1 03648000 @NM00082 EQU TCBRECDE 03649000 TCBREC EQU TCBRECDE 03650000 TCBMDIDS EQU TCB+176 03651000 TCBNDINT EQU TCBNDSP3 03652000 TCBRSV27 EQU TCBNDSP3 03653000 TCBRSV26 EQU TCBNDSP3 03654000 TCBRSV25 EQU TCBNDSP3 03655000 TCBRSV24 EQU TCBNDSP3 03656000 TCBSRBND EQU TCBNDSP3 03657000 TCBRV302 EQU TCBNDSP3 03658000 TCBLJSND EQU TCBNDSP3 03659000 TCBABE EQU TCBNDSP2 03660000 TCBDSS EQU TCBNDSP2 03661000 TCBOWAIT EQU TCBNDSP2 03662000 TCBIWAIT EQU TCBNDSP2 03663000 TCBNDTS EQU TCBNDSP2 03664000 TCBNDSVC EQU TCBNDSP2 03665000 TCBSTPP EQU TCBNDSP2 03666000 TCBABD EQU TCBNDSP2 03667000 TCBRSV22 EQU TCBNDSP1 03668000 TCBPIEND EQU TCBNDSP1 03669000 TCBTPSP EQU TCBNDSP1 03670000 TCBDDRND EQU TCBNDSP1 03671000 TCBRSPND EQU TCBNDSP1 03672000 TCBRSTND EQU TCBNDSP1 03673000 TCBDARPN EQU TCBNDSP1 03674000 TCBDARTN EQU TCBNDSP1 03675000 TCBNDSP0 EQU TCBNDSP 03676000 TCBUSER EQU TCB+168 03677000 TCBTCTB EQU TCBTCT+1 03678000 TCBRSV9C EQU TCBTCTGF 03679000 TCBRSV9B EQU TCBTCTGF 03680000 TCBRSV9A EQU TCBTCTGF 03681000 TCBRSV99 EQU TCBTCTGF 03682000 TCBRSV98 EQU TCBTCTGF 03683000 TCBRSV97 EQU TCBTCTGF 03684000 TCBRSV20 EQU TCBTCTGF 03685000 TCBSMFGF EQU TCBTCTGF 03686000 TCBSTABB EQU TCBSTAB+1 03687000 TCBSTCUR EQU TCBNSTAE 03688000 TCBRV301 EQU TCBNSTAE 03689000 TCBSYNCH EQU TCBNSTAE 03690000 TCBHALT EQU TCBNSTAE 03691000 TCBPPSUP EQU TCBNSTAE 03692000 TCB33E EQU TCBNSTAE 03693000 TCBQUIES EQU TCBNSTAE 03694000 TCBSTABE EQU TCBNSTAE 03695000 TCBAQE EQU TCB+156 03696000 TCBPQE EQU TCB+152 03697000 TCBTSDP EQU TCB+151 03698000 TCBTSLP EQU TCB+150 03699000 TCBSTPCT EQU TCB+149 03700000 TCBCPUBN EQU TCBTSFLG 03701000 TCBDYDSP EQU TCBTSFLG 03702000 TCBRSV18 EQU TCBTSFLG 03703000 TCBRSV17 EQU TCBTSFLG 03704000 TCBTIOTG EQU TCBTSFLG 03705000 TCBATT EQU TCBTSFLG 03706000 TCBSTPPR EQU TCBTSFLG 03707000 TCBRV300 EQU TCBTSTSK 03708000 TCBECB EQU TCB+144 03709000 TCBIQE EQU TCB+140 03710000 TCBLTC EQU TCB+136 03711000 TCBOTC EQU TCB+132 03712000 TCBNTC EQU TCB+128 03713000 TCBJSTCA EQU TCBJSTCB+1 03714000 TCBRSV16 EQU TCBJSTCB 03715000 TCBTQET EQU TCBTME 03716000 TCBTCB EQU TCB+116 03717000 TCBFSAB EQU TCBFSA+1 03718000 TCBQEL EQU TCBFSA 03719000 TCBGRS15 EQU TCBGRS+60 03720000 TCBGRS14 EQU TCBGRS+56 03721000 TCBGRS13 EQU TCBGRS+52 03722000 TCBGRS12 EQU TCBGRS+48 03723000 TCBGRS11 EQU TCBGRS+44 03724000 TCBGRS10 EQU TCBGRS+40 03725000 TCBGRS9 EQU TCBGRS+36 03726000 TCBGRS8 EQU TCBGRS+32 03727000 TCBGRS7 EQU TCBGRS+28 03728000 TCBGRS6 EQU TCBGRS+24 03729000 TCBGRS5 EQU TCBGRS+20 03730000 TCBGRS4 EQU TCBGRS+16 03731000 TCBGRS3 EQU TCBGRS+12 03732000 TCBGRS2 EQU TCBGRS+8 03733000 TCBGRS1 EQU TCBGRS+4 03734000 TCBGRS0 EQU TCBGRS 03735000 TCBJPQB EQU TCBJPQ+1 03736000 TCBRSV15 EQU TCBPURGE 03737000 TCBRSV14 EQU TCBPURGE 03738000 TCBRSV13 EQU TCBPURGE 03739000 TCBRSV12 EQU TCBPURGE 03740000 TCBRSV11 EQU TCBPURGE 03741000 TCBRSV10 EQU TCBPURGE 03742000 TCBRSV09 EQU TCBPURGE 03743000 TCBJPQF EQU TCBPURGE 03744000 TCBJLB EQU TCB+40 03745000 TCBLLS EQU TCB+36 03746000 TCBDSP EQU TCB+35 03747000 TCBLMP EQU TCB+34 03748000 TCBPNDSP EQU TCBFLGS5 03749000 TCBFCD1 EQU TCBFLGS5 03750000 TCBSTP EQU TCBFLGS5 03751000 TCBSYS EQU TCBFLGS5 03752000 TCBANDSP EQU TCBFLGS5 03753000 TCBPAGE EQU TCBFLGS5 03754000 TCBUXNDF EQU TCBABWF 03755000 TCBFC EQU TCBFLGS5 03756000 TCBONDSP EQU TCBFLGS4 03757000 TCBMPCND EQU TCBFLGS4 03758000 TCBMPCVQ EQU TCBFLGS4 03759000 TCBUXNDV EQU TCBFLGS4 03760000 TCBHNDSP EQU TCBFLGS4 03761000 TCBRQENA EQU TCBFLGS4 03762000 TCBSER EQU TCBFLGS4 03763000 TCBNDUMP EQU TCBFLGS4 03764000 TCBDWSTA EQU TCBFLGS3 03765000 TCBRSV08 EQU TCBFLGS3 03766000 TCBRSV07 EQU TCBFLGS3 03767000 TCBRSV06 EQU TCBFLGS3 03768000 TCBABGM EQU TCBFLGS3 03769000 TCBABTRM EQU TCBFLGS3 03770000 TCBADINP EQU TCBFLGS3 03771000 TCBFSM EQU TCBFLGS3 03772000 TCBFTS EQU TCBFLGS2 03773000 TCBFETXR EQU TCBFLGS2 03774000 TCBFDSOP EQU TCBFLGS2 03775000 TCBFJMC EQU TCBFLGS2 03776000 TCBFSMC EQU TCBFLGS2 03777000 TCBFABOP EQU TCBFLGS2 03778000 TCBFSTI EQU TCBFLGS2 03779000 TCBFOINP EQU TCBFLGS2 03780000 TCBFX EQU TCBFLGS1 03781000 TCBFS EQU TCBFLGS1 03782000 TCBFT EQU TCBFLGS1 03783000 TCBPDUMP EQU TCBFLGS1 03784000 TCBNONPR EQU TCBFLGS1 03785000 TCBFERA EQU TCBFLGS1 03786000 TCBFE EQU TCBFLGS1 03787000 TCBFA EQU TCBFLGS1 03788000 TCBZERO EQU TCBPKF 03789000 TCBFLAG EQU TCBPKF 03790000 TCBMSSB EQU TCBMSS+1 03791000 TCBRSV03 EQU TCBMSS 03792000 TCBTRNB EQU TCBTRN+1 03793000 TCBRSV02 EQU TCBABF 03794000 TCBOLTEP EQU TCBABF 03795000 TCBTCP EQU TCBABF 03796000 TCBTCPP EQU TCBABF 03797000 TCBRSV01 EQU TCBABF 03798000 TCBGRPH EQU TCBABF 03799000 TCBNOCHK EQU TCBABF 03800000 TCBMOD91 EQU TCBABF 03801000 TCBCMPC EQU TCBCMP+1 03802000 TCBRV318 EQU TCBCMSG 03803000 TCBRV317 EQU TCBCIND 03804000 TCBRV316 EQU TCBCWTO 03805000 TCBCASID EQU TCBCDBL 03806000 TCBNOCC EQU TCBSTCC 03807000 TCBDMPO EQU TCBCPP 03808000 TCBCSTEP EQU TCBCMPF 03809000 TCBCREQ EQU TCBCMPF 03810000 TCBDEB EQU TCB+8 03811000 TCBPIEA EQU TCBPIE+1 03812000 TCBPM EQU TCBPMASK 03813000 @NM00081 EQU TCBPMASK 03814000 TCBRBP EQU TCB 03815000 TCBFRS6 EQU TCBFRS+24 03816000 TCBFRS4 EQU TCBFRS+16 03817000 TCBFRS2 EQU TCBFRS+8 03818000 TCBFRS0 EQU TCBFRS 03819000 ASCBEND EQU ASCB+208 03820000 ASCBSRBT EQU ASCB+200 03821000 ASCBSWTL EQU ASCB+196 03822000 ASCBRS14 EQU ASCB+195 03823000 ASCBSMCT EQU ASCB+194 03824000 ASCBRS12 EQU ASCB+192 03825000 ASCBPCTT EQU ASCB+188 03826000 ASCBVGTT EQU ASCB+184 03827000 ASCBRV43 EQU ASCBSRQ4 03828000 ASCBRV42 EQU ASCBSRQ4 03829000 ASCBRV41 EQU ASCBSRQ4 03830000 ASCBRV40 EQU ASCBSRQ4 03831000 ASCBRV39 EQU ASCBSRQ4 03832000 ASCBRV38 EQU ASCBSRQ4 03833000 ASCBRV37 EQU ASCBSRQ4 03834000 ASCBRV36 EQU ASCBSRQ4 03835000 ASCBRV35 EQU ASCBSRQ3 03836000 ASCBRV34 EQU ASCBSRQ3 03837000 ASCBRV33 EQU ASCBSRQ3 03838000 ASCBRV32 EQU ASCBSRQ3 03839000 ASCBRV31 EQU ASCBSRQ3 03840000 ASCBRV30 EQU ASCBSRQ3 03841000 ASCBRV29 EQU ASCBSRQ3 03842000 ASCBRV28 EQU ASCBSRQ3 03843000 ASCBRV27 EQU ASCBSRQ2 03844000 ASCBRV26 EQU ASCBSRQ2 03845000 ASCBRV25 EQU ASCBSRQ2 03846000 ASCBRV24 EQU ASCBSRQ2 03847000 ASCBRV23 EQU ASCBSRQ2 03848000 ASCBRV22 EQU ASCBSRQ2 03849000 ASCBRV21 EQU ASCBSRQ2 03850000 ASCBRV20 EQU ASCBSRQ2 03851000 ASCBRV19 EQU ASCBSRQ1 03852000 ASCBRV18 EQU ASCBSRQ1 03853000 ASCBRV17 EQU ASCBSRQ1 03854000 ASCBRV16 EQU ASCBSRQ1 03855000 ASCBRV15 EQU ASCBSRQ1 03856000 ASCBRV14 EQU ASCBSRQ1 03857000 ASCBRV13 EQU ASCBSRQ1 03858000 ASCBSTA EQU ASCBSRQ1 03859000 ASCBJBNS EQU ASCB+176 03860000 ASCBMCC EQU ASCB+168 03861000 ASCBRTWA EQU ASCB+164 03862000 ASCBIQEA EQU ASCB+160 03863000 ASCBXMPQ EQU ASCB+156 03864000 ASCBRS01 EQU ASCB+154 03865000 ASCBFMCT EQU ASCB+152 03866000 ASCBOUXB EQU ASCB+148 03867000 ASCBOUCB EQU ASCB+144 03868000 ASCBMECB EQU ASCB+140 03869000 ASCBQECB EQU ASCB+136 03870000 ASCBLSQH EQU ASCBLKGP+4 03871000 ASCBLOCK EQU ASCBLKGP 03872000 ASCBTCBS EQU ASCB+124 03873000 ASCBNVSC EQU ASCB+122 03874000 ASCBVSC EQU ASCB+120 03875000 ASCBSRBS EQU ASCB+118 03876000 ASCBSSRB EQU ASCB+116 03877000 ASCBRV06 EQU ASCBFLG2 03878000 ASCBRV05 EQU ASCBFLG2 03879000 ASCBRV04 EQU ASCBFLG2 03880000 ASCBSNQS EQU ASCBFLG2 03881000 ASCBS2S EQU ASCBFLG2 03882000 ASCBCEXT EQU ASCBFLG2 03883000 ASCBPXMT EQU ASCBFLG2 03884000 ASCBXMPT EQU ASCBFLG2 03885000 ASCBRF07 EQU ASCBDSP1 03886000 ASCBRF06 EQU ASCBDSP1 03887000 ASCBRF05 EQU ASCBDSP1 03888000 ASCBRF04 EQU ASCBDSP1 03889000 ASCBRF03 EQU ASCBDSP1 03890000 ASCBRF02 EQU ASCBDSP1 03891000 ASCBFAIL EQU ASCBDSP1 03892000 ASCBNOQ EQU ASCBDSP1 03893000 ASCBSWCT EQU ASCB+112 03894000 ASCBASXB EQU ASCB+108 03895000 ASCBTMCH EQU ASCB+104 03896000 ASCBNSWP EQU ASCBFLG1 03897000 ASCBTYP1 EQU ASCBFLG1 03898000 ASCBSTND EQU ASCBFLG1 03899000 ASCBABNT EQU ASCBFLG1 03900000 ASCBTERM EQU ASCBFLG1 03901000 ASCBS3S EQU ASCBFLG1 03902000 ASCBCMSH EQU ASCBFLG1 03903000 ASCBTOFF EQU ASCBFLG1 03904000 ASCBRF01 EQU ASCBRCTF 03905000 ASCBTMLW EQU ASCBRCTF 03906000 ASCBOUT EQU ASCBRCTF 03907000 ASCBWAIT EQU ASCBRCTF 03908000 ASCBRV08 EQU ASCBRCTF 03909000 ASCBFQU EQU ASCBRCTF 03910000 ASCBFRS EQU ASCBRCTF 03911000 ASCBTMNO EQU ASCBRCTF 03912000 ASCBDUMP EQU ASCB+96 03913000 ASCBRV44 EQU ASCB+92 03914000 ASCBUBET EQU ASCB+88 03915000 ASCBECB EQU ASCB+84 03916000 ASCBJSTL EQU ASCB+80 03917000 ASCBEWST EQU ASCB+72 03918000 ASCBEJST EQU ASCB+64 03919000 ASCBTSB EQU ASCB+60 03920000 ASCBCSCB EQU ASCB+56 03921000 ASCBRSMA EQU ASCBRSM+1 03922000 ASCBRV54 EQU ASCBRSMF 03923000 ASCBRV53 EQU ASCBRSMF 03924000 ASCBRV52 EQU ASCBRSMF 03925000 ASCBRV51 EQU ASCBRSMF 03926000 ASCBVEQR EQU ASCBRSMF 03927000 ASCBN2LP EQU ASCBRSMF 03928000 ASCB1LPU EQU ASCBRSMF 03929000 ASCB2LPU EQU ASCBRSMF 03930000 ASCBLDA EQU ASCB+48 03931000 ASCBSTOR EQU ASCB+44 03932000 ASCBDP EQU ASCB+43 03933000 ASCBRV07 EQU ASCB+42 03934000 ASCBIOSM EQU ASCB+40 03935000 ASCBSEQN EQU ASCB+38 03936000 ASCBASID EQU ASCB+36 03937000 ASCBCPUS EQU ASCB+32 03938000 ASCBSPL EQU ASCB+28 03939000 ASCBIOSP EQU ASCB+24 03940000 ASCBSYNC EQU ASCBSUPC+4 03941000 ASCBSVRB EQU ASCBSUPC 03942000 ASCBCMSF EQU ASCB+12 03943000 ASCBBWDP EQU ASCB+8 03944000 ASCBFWDP EQU ASCB+4 03945000 ASCBASCB EQU ASCB 03946000 ASCBEGIN EQU ASCB 03947000 LCTLABEL EQU LCT+504 03948000 LCTIWORK EQU LCT+440 03949000 @NM00080 EQU LCT+436 03950000 LCTLBWAP EQU LCT+428 03951000 @NM00079 EQU LCT+424 03952000 LCTATTC EQU LCTINTS2 03953000 LCTTSWPC EQU LCTINTS2 03954000 LCTBPPAS EQU LCTINTS2 03955000 LCTSYS EQU LCTINTS2 03956000 LCTTSIZ EQU @NM00078 03957000 LCTRFB1 EQU LCT+419 03958000 @NM00077 EQU LCTRFB 03959000 LCTRFBRP EQU LCTRFB 03960000 LCTRFBEF EQU LCTRFB 03961000 LCTRFBMS EQU LCTRFB 03962000 LCTRFBDC EQU LCTRFB 03963000 LCTRFBRV EQU LCTRFB 03964000 LCTRFBCR EQU LCTRFB 03965000 LCTRFBSM EQU LCTRFB 03966000 LCTMFTIO EQU LCTSTATB 03967000 LCTNPKEY EQU LCTSTATB 03968000 LCTSBPOL EQU LCTSTATB 03969000 LCTNREAD EQU LCTSTATB 03970000 LCTWRITE EQU LCTSTATB 03971000 LCTNOATC EQU LCTSTATB 03972000 LCTNOREG EQU LCTSTATB 03973000 LCTECBPB EQU LCTSTATB 03974000 LCTCPART EQU LCTSTATA 03975000 LCTNOGCB EQU LCTSTATA 03976000 LCTNOSDP EQU LCTSTATA 03977000 LCTJCPIB EQU LCTSTATA 03978000 LCTNECBL EQU LCTSTATA 03979000 LCTBTJOB EQU LCTSTATA 03980000 LCTSNOWK EQU LCTSTATA 03981000 LCTSUSPD EQU LCTSTATA 03982000 LCTTIOTI EQU LCT+412 03983000 @NM00076 EQU LCTJCTDA+3 03984000 @NM00075 EQU LCT+364 03985000 @NM00074 EQU LCTJSCB+1 03986000 @NM00073 EQU LCTOPSW3 03987000 @NM00072 EQU LCTOPSW3 03988000 LCTALERR EQU LCTOPSW3 03989000 LCTJNLF EQU LCTOPSW3 03990000 @NM00071 EQU LCTOPSW3 03991000 LCTNSYS EQU LCTOPSW3 03992000 LCTRDER EQU LCTOPSW3 03993000 @NM00070 EQU LCTOPSW3 03994000 @NM00069 EQU @NM00066+1 03995000 LCTENQU EQU LCTOPSW2 03996000 LCTNORC EQU LCTOPSW2 03997000 LCTBPRAC EQU LCTOPSW2 03998000 @NM00068 EQU LCTOPSW2 03999000 @NM00067 EQU LCTOPSW2 04000000 LCTCKRST EQU LCTOPSW2 04001000 LCTCRF EQU LCTOPSW2 04002000 LCTTIMEF EQU LCTOPSW2 04003000 @NM00065 EQU LCTEXIT+1 04004000 @NM00064 EQU LCTOPSW1 04005000 @NM00063 EQU LCTOPSW1 04006000 LCTCANF EQU LCTOPSW1 04007000 @NM00062 EQU LCTOPSW1 04008000 @NM00061 EQU LCTOPSW1 04009000 LCTDWFF EQU LCTOPSW1 04010000 LCTDPSWA EQU LCTOPSW1 04011000 LCTTSRB3 EQU LCTTSRB4+1 04012000 @NM00060 EQU LCTTSRB4 04013000 @NM00059 EQU LCT+340 04014000 @NM00058 EQU LCTSPIL+3 04015000 @NM00057 EQU LCTALCFG 04016000 @NM00056 EQU LCTALCFG 04017000 @NM00055 EQU LCTALCFG 04018000 @NM00054 EQU LCTALCFG 04019000 @NM00053 EQU LCTALCFG 04020000 @NM00052 EQU LCTALCFG 04021000 LCTMSGWT EQU LCTALCFG 04022000 LCTODSFL EQU LCTALCFG 04023000 LCTDSBCT EQU LCTSPIL 04024000 LCTPIB EQU LCTIDENT 04025000 @NM00051 EQU ECBLIST+1 04026000 @NM00050 EQU ECBLIST 04027000 LCTJMRAD EQU LCT+324 04028000 @NM00049 EQU LCT+284 04029000 @NM00048 EQU LCTATLST+1 04030000 @NM00047 EQU LCTATLST 04031000 @NM00046 EQU LCTJOBLB+1 04032000 @NM00045 EQU LCTJOBLB 04033000 LCTTSTU3 EQU LCTTSTU4+1 04034000 @NM00044 EQU LCTTSTU4 04035000 LCTTSTR3 EQU LCTSMF+1 04036000 LCTTTIFJ EQU LCTTMBYT 04037000 LCTTSTL3 EQU LCTTSTL4+1 04038000 @NM00043 EQU LCTTSTL4 04039000 LCTTJTU3 EQU LCTTJTU4+1 04040000 @NM00042 EQU LCTTJTU4 04041000 @NM00041 EQU @NM00036+2 04042000 @NM00040 EQU LCTPUBYT 04043000 @NM00039 EQU LCTPUBYT 04044000 @NM00038 EQU LCTPUBYT 04045000 @NM00037 EQU LCTPUBYT 04046000 LCTNSWP EQU LCTPUBYT 04047000 LCTN2LP EQU LCTPUBYT 04048000 LCT1LPU EQU LCTPUBYT 04049000 LCT2LPU EQU LCTPUBYT 04050000 LCTNDSI EQU LCTINTSW 04051000 LCTABEND EQU LCTINTSW 04052000 LCTSTART EQU LCTINTSW 04053000 LCTMINRG EQU LCTINTSW 04054000 LCTPPAA EQU LCTINTSW 04055000 LCTPRIV EQU LCTINTSW 04056000 LCTINPPT EQU LCTINTSW 04057000 @NM00035 EQU LCTSREG+1 04058000 @NM00034 EQU LCTSREG 04059000 LCTCOMD2 EQU LCTCOMCD+2 04060000 LCTCOMD1 EQU LCTCOMCD 04061000 LCTBATMN EQU LCT+64 04062000 @NM00033 EQU LCTSMBAD+1 04063000 @NM00032 EQU LCTSMBAD 04064000 LCTACTON EQU LCT+59 04065000 @NM00031 EQU LCTJFCBH 04066000 @NM00030 EQU LCTJFCBH 04067000 @NM00029 EQU LCTJFCBH 04068000 @NM00028 EQU LCTJFCBH 04069000 @NM00027 EQU LCTJFCBH 04070000 LCTS2FES EQU LCTJFCBH 04071000 LCTS2COP EQU LCTJFCBH 04072000 LCTS2PEM EQU LCTJFCBH 04073000 LCTSTIND EQU LCTNSPAD 04074000 @NM00026 EQU LCTCMCBA+1 04075000 @NM00025 EQU LCTCMCBA 04076000 LCTPARM4 EQU LCT+48 04077000 LCTPARM3 EQU LCT+44 04078000 LCTJCFAL EQU LCTERR 04079000 LCTACOMP EQU LCTERR 04080000 LCTSFAIL EQU LCTERR 04081000 LCTPALCD EQU LCTERR 04082000 LCTSALCD EQU LCTERR 04083000 LCTJFAIL EQU LCTERR 04084000 @NM00024 EQU LCTPSPAR+1 04085000 @NM00023 EQU LCTPSPAR 04086000 @NM00022 EQU LCTWORKA+3 04087000 @NM00021 EQU LCTSCTAD+1 04088000 @NM00020 EQU LCTSCTAD 04089000 @NM00019 EQU LCTJCTAD+1 04090000 @NM00018 EQU LCTJCTAD 04091000 @NM00017 EQU LCTQENTY+1 04092000 LCTERRM EQU @NM00009 04093000 @NM00016 EQU @NM00009 04094000 @NM00015 EQU @NM00009 04095000 @NM00014 EQU @NM00009 04096000 @NM00013 EQU @NM00009 04097000 @NM00012 EQU @NM00009 04098000 @NM00011 EQU @NM00009 04099000 @NM00010 EQU @NM00009 04100000 @NM00008 EQU LCTTCBAD+1 04101000 @NM00007 EQU LCTTCBAD 04102000 @NM00006 EQU LCTSRTAD+1 04103000 @NM00005 EQU LCTSRTAD 04104000 @NM00004 EQU LCTQDRTY+1 04105000 @NM00003 EQU LCTQDRTY 04106000 CVTLEVL EQU CVTRELNO+2 04107000 CVTNUMB EQU CVTRELNO 04108000 CVTMDL EQU CVTFIX+250 04109000 @NM00002 EQU CVTFIX+248 04110000 @NM00001 EQU CVTFIX 04111000 CVTRV482 EQU CVTXTNT2+128 04112000 CVTRV481 EQU CVTXTNT2+124 04113000 CVTRV480 EQU CVTXTNT2+120 04114000 CVTRV479 EQU CVTXTNT2+118 04115000 CVTRV478 EQU CVTXTNT2+117 04116000 CVTRV477 EQU CVTXTNT2+116 04117000 CVTRV476 EQU CVTXTNT2+115 04118000 CVTRV475 EQU CVTXTNT2+114 04119000 CVTRV474 EQU CVTRV466 04120000 CVTRV473 EQU CVTRV466 04121000 CVTRV472 EQU CVTRV466 04122000 CVTRV471 EQU CVTRV466 04123000 CVTRV470 EQU CVTRV466 04124000 CVTRV469 EQU CVTRV466 04125000 CVTRV468 EQU CVTRV466 04126000 CVTRV467 EQU CVTRV466 04127000 CVTRV465 EQU CVTRV457 04128000 CVTRV464 EQU CVTRV457 04129000 CVTRV463 EQU CVTRV457 04130000 CVTRV462 EQU CVTRV457 04131000 CVTRV461 EQU CVTRV457 04132000 CVTRV460 EQU CVTRV457 04133000 CVTRV459 EQU CVTRV457 04134000 CVTRV458 EQU CVTRV457 04135000 CVTRV456 EQU CVTXTNT2+108 04136000 CVTRV455 EQU CVTXTNT2+104 04137000 CVTRV454 EQU CVTXTNT2+100 04138000 CVTRV453 EQU CVTXTNT2+96 04139000 CVTRV452 EQU CVTXTNT2+94 04140000 CVTRV451 EQU CVTXTNT2+92 04141000 CVTRV450 EQU CVTXTNT2+90 04142000 CVTRV449 EQU CVTXTNT2+88 04143000 CVTRV448 EQU CVTXTNT2+87 04144000 CVTRV447 EQU CVTXTNT2+86 04145000 CVTRV446 EQU CVTRV438 04146000 CVTRV445 EQU CVTRV438 04147000 CVTRV444 EQU CVTRV438 04148000 CVTRV443 EQU CVTRV438 04149000 CVTRV442 EQU CVTRV438 04150000 CVTRV441 EQU CVTRV438 04151000 CVTRV440 EQU CVTRV438 04152000 CVTRV439 EQU CVTRV438 04153000 CVTRV437 EQU CVTRV429 04154000 CVTRV436 EQU CVTRV429 04155000 CVTRV435 EQU CVTRV429 04156000 CVTRV434 EQU CVTRV429 04157000 CVTRV433 EQU CVTRV429 04158000 CVTRV432 EQU CVTRV429 04159000 CVTRV431 EQU CVTRV429 04160000 CVTRV430 EQU CVTRV429 04161000 CVTRV428 EQU CVTXTNT2+80 04162000 CVTRV427 EQU CVTXTNT2+76 04163000 CVTRV426 EQU CVTXTNT2+72 04164000 CVTRV425 EQU CVTXTNT2+68 04165000 CVTATACT EQU CVTATCVT 04166000 CVTRV423 EQU CVTXTNT2+62 04167000 CVTRV422 EQU CVTXTNT2+60 04168000 CVTRV421 EQU CVTXTNT2+58 04169000 CVTRV420 EQU CVTXTNT2+56 04170000 CVTRV419 EQU CVTXTNT2+55 04171000 CVTRV418 EQU CVTXTNT2+54 04172000 CVTRV417 EQU CVTRV409 04173000 CVTRV416 EQU CVTRV409 04174000 CVTRV415 EQU CVTRV409 04175000 CVTRV414 EQU CVTRV409 04176000 CVTRV413 EQU CVTRV409 04177000 CVTRV412 EQU CVTRV409 04178000 CVTRV411 EQU CVTRV409 04179000 CVTRV410 EQU CVTRV409 04180000 CVTRV408 EQU CVTRV400 04181000 CVTRV407 EQU CVTRV400 04182000 CVTRV406 EQU CVTRV400 04183000 CVTRV405 EQU CVTRV400 04184000 CVTRV404 EQU CVTRV400 04185000 CVTRV403 EQU CVTRV400 04186000 CVTRV402 EQU CVTRV400 04187000 CVTRV401 EQU CVTRV400 04188000 CVTICB EQU CVTXTNT2+48 04189000 CVTSKTA EQU CVTXTNT2+44 04190000 CVTRSV99 EQU CVTXTNT2+40 04191000 CVTRSV98 EQU CVTXTNT2+36 04192000 CVTRSV97 EQU CVTXTNT2+34 04193000 CVTRSV96 EQU CVTXTNT2+32 04194000 CVTOLTEP EQU CVTXTNT2+28 04195000 CVTQIDA EQU CVTQID+1 04196000 CVTRSV95 EQU CVTQID 04197000 CVTRSV94 EQU CVTXTNT2+20 04198000 CVTRSV93 EQU CVTXTNT2+16 04199000 CVTRSV92 EQU CVTXTNT2+12 04200000 CVTDEBVR EQU CVTXTNT2+8 04201000 CVTRSV91 EQU CVTXTNT2+6 04202000 CVTRSV9H EQU CVTFLGBT 04203000 CVTRSV9G EQU CVTFLGBT 04204000 CVTRSV9F EQU CVTFLGBT 04205000 CVTRSV9E EQU CVTFLGBT 04206000 CVTRSV9D EQU CVTFLGBT 04207000 CVTRSV9C EQU CVTFLGBT 04208000 CVTVME EQU CVTFLGBT 04209000 CVTNPE EQU CVTFLGBT 04210000 CVTNUCLS EQU CVTXTNT2+4 04211000 CVTDSSVA EQU CVTDSSV+1 04212000 CVTRSV89 EQU CVTDSSV 04213000 CVTRSV88 EQU CVTXTNT1+8 04214000 CVTRSV87 EQU CVTXTNT1+4 04215000 CVTFACHN EQU CVTXTNT1 04216000 CVTRV488 EQU CVTMAP+412 04217000 CVTRV487 EQU CVTMAP+408 04218000 CVTRV486 EQU CVTMAP+404 04219000 CVTRV485 EQU CVTMAP+400 04220000 CVTACTAP EQU CVTMAP+396 04221000 CVTAUTH EQU CVTMAP+392 04222000 CVTATMCA EQU CVTATMCT+1 04223000 CVTATMST EQU CVTATMCT 04224000 CVTRSV61 EQU CVTMAP+384 04225000 CVTVOLT1 EQU CVTVOLM1+1 04226000 CVTVOLI1 EQU CVTVOLF1 04227000 CVTSTOA EQU CVTMAP+376 04228000 CVTRSV58 EQU CVTMAP+374 04229000 CVTRSV57 EQU CVTMAP+372 04230000 CVTDDCE EQU CVTMAP+368 04231000 CVTPNWFR EQU CVTMAP+364 04232000 CVTSMF EQU CVTMAP+360 04233000 CVTSULK EQU CVTMAP+358 04234000 CVTSLKO EQU CVTSYSK 04235000 CVTSLKP EQU CVTSYSK 04236000 CVTSLKQ EQU CVTSYSK 04237000 CVTSLKR EQU CVTSYSK 04238000 CVTRSV56 EQU CVTSYSK 04239000 CVTRSV55 EQU CVTSYSK 04240000 CVTRSV54 EQU CVTSYSK 04241000 CVTRSV53 EQU CVTSYSK 04242000 CVTRSV52 EQU CVTA1F1 04243000 CVTRSV51 EQU CVTA1F1 04244000 CVTRSV50 EQU CVTA1F1 04245000 CVTRSV49 EQU CVTA1F1 04246000 CVTRSV48 EQU CVTA1F1 04247000 CVTRSV47 EQU CVTA1F1 04248000 CVTSRSW EQU CVTA1F1 04249000 CVTPFSW EQU CVTA1F1 04250000 CVTPCVT EQU CVTMAP+352 04251000 CVTRSV46 EQU CVTMAP+344 04252000 CVTRSV45 EQU CVTMAP+340 04253000 CVTRSV44 EQU CVTMAP+338 04254000 CVTRSV43 EQU CVTMAP+336 04255000 CVTHJESA EQU CVTHJES+1 04256000 CVTRSV42 EQU CVTHJES 04257000 CVTEXT2A EQU CVTEXT2+1 04258000 CVTRSV41 EQU CVTEXT2 04259000 CVTAPFA EQU CVTAPF+1 04260000 CVTRSV40 EQU CVTAPF 04261000 CVTRV518 EQU CVTINTLA 04262000 CVTRV517 EQU CVTERPV 04263000 CVTEORM EQU CVTMAP+312 04264000 CVTMCHPR EQU CVTMAP+308 04265000 CVTTZ EQU CVTMAP+304 04266000 CVTJEPS EQU CVTMAP+300 04267000 CVTMODE EQU CVTMAP+292 04268000 CVTPTRV EQU CVTMAP+288 04269000 CVTREAL EQU CVTMAP+284 04270000 CVTRSV39 EQU CVTMAP+280 04271000 CVTRSV38 EQU CVTMAP+276 04272000 CVTDMSRA EQU CVTDMSR+1 04273000 CVTRV634 EQU CVTDMSRF 04274000 CVTRV633 EQU CVTDMSRF 04275000 CVTRV632 EQU CVTDMSRF 04276000 CVTRV631 EQU CVTDMSRF 04277000 CVTRV630 EQU CVTDMSRF 04278000 CVTRV629 EQU CVTDMSRF 04279000 CVTUDUMP EQU CVTDMSRF 04280000 CVTSDUMP EQU CVTDMSRF 04281000 CVTQMSGA EQU CVTQMSG+1 04282000 CVTRSV36 EQU CVTQMSG 04283000 CVTAMFF EQU CVTMAP+264 04284000 CVTPURGA EQU CVTPURG+1 04285000 CVTRSV35 EQU CVTPURG 04286000 CVTCBSP EQU CVTMAP+256 04287000 CVTATERA EQU CVTATER+1 04288000 CVTSYST EQU CVTATER 04289000 CVTVOLT2 EQU CVTTAT 04290000 CVTVOLI2 EQU CVTVOLF2 04291000 CVTAQAVB EQU CVTAQAVT+1 04292000 CVTRSV34 EQU CVTTCMFG 04293000 CVTRSV33 EQU CVTTCMFG 04294000 CVTRSV32 EQU CVTTCMFG 04295000 CVTRSV31 EQU CVTTCMFG 04296000 CVTRSV30 EQU CVTTCMFG 04297000 CVTRSV29 EQU CVTTCMFG 04298000 CVTLDEV EQU CVTTCMFG 04299000 CVTTCRDY EQU CVTTCMFG 04300000 CVTGTFA EQU CVTGTF+1 04301000 CVTRSV27 EQU CVTGTFST 04302000 CVTRNIO EQU CVTGTFST 04303000 CVTUSR EQU CVTGTFST 04304000 CVTRV318 EQU CVTFORM 04305000 CVTRV317 EQU CVTTMODE 04306000 CVTRV316 EQU CVTSTATE 04307000 CVTRV315 EQU CVTGTFS 04308000 CVTGTFAV EQU CVTGTFS 04309000 CVT0SCR1 EQU CVTMAP+232 04310000 CVTRV515 EQU CVTMAP+228 04311000 CVTRMS EQU CVTMAP+224 04312000 CVTPATCH EQU CVTMAP+220 04313000 CVTTSCE EQU CVTMAP+216 04314000 CVTLNKSC EQU CVTMAP+214 04315000 CVTQABST EQU CVTMAP+212 04316000 CVTMDLDS EQU CVTMAP+208 04317000 CVTUSER EQU CVTMAP+204 04318000 CVTABEND EQU CVTMAP+200 04319000 CVTSMCA EQU CVTMAP+196 04320000 CVTRSV18 EQU CVTMAP+192 04321000 CVTQLPAQ EQU CVTMAP+188 04322000 CVTQCDSR EQU CVTMAP+184 04323000 CVTRSV17 EQU CVTOPTB 04324000 CVTRSV16 EQU CVTOPTB 04325000 CVTFP EQU CVTOPTB 04326000 CVTAPTHR EQU CVTOPTB 04327000 CVTNLOG EQU CVTOPTB 04328000 CVTTOD EQU CVTOPTB 04329000 CVTCTIMS EQU CVTOPTB 04330000 CVTPROT EQU CVTOPTB 04331000 CVTXPFP EQU CVTOPTA 04332000 CVTASCII EQU CVTOPTA 04333000 CVTRSV13 EQU CVTOPTA 04334000 CVTRSV12 EQU CVTOPTA 04335000 CVTNIP EQU CVTOPTA 04336000 CVTDDR EQU CVTOPTA 04337000 CVTAPR EQU CVTOPTA 04338000 CVTCCH EQU CVTOPTA 04339000 CVTSNCTR EQU CVTMAP+180 04340000 CVTQMWR EQU CVTMAP+176 04341000 CVTQOCR EQU CVTMAP+172 04342000 CVT1EF00 EQU CVTMAP+168 04343000 CVTMZ00 EQU CVTMAP+164 04344000 CVTSV76Q EQU CVTSV76C 04345000 CVTRSV11 EQU CVTMAP+156 04346000 CVT0PT01 EQU CVTMAP+152 04347000 CVTRV516 EQU CVTIERLC 04348000 CVTILCH EQU CVTMAP+140 04349000 CVT0DS EQU CVTMAP+136 04350000 CVTFBOSV EQU CVTMAP+132 04351000 CVTNUCB EQU CVTMAP+128 04352000 CVTIXAVL EQU CVTMAP+124 04353000 CVTSV76M EQU CVTIOQET 04354000 CVTDCBA EQU CVTMAP+117 04355000 CVTMVS2 EQU CVTDCB 04356000 CVT6DAT EQU CVTDCB 04357000 CVT4MPS EQU CVTDCB 04358000 CVTRSV09 EQU CVTDCB 04359000 CVT4MS1 EQU CVTDCB 04360000 CVT2SPS EQU CVTDCB 04361000 CVT1SSS EQU CVTDCB 04362000 CVTRSV08 EQU CVTDCB 04363000 CVTSTB EQU CVTMAP+112 04364000 CVTQTD00 EQU CVTMAP+108 04365000 CVTQTE00 EQU CVTMAP+104 04366000 CVTCUCB EQU CVTMAP+100 04367000 CVTSJQ EQU CVTMAP+96 04368000 CVTPBLDL EQU CVTMAP+92 04369000 CVTTPC EQU CVTMAP+88 04370000 CVTSVDCB EQU CVTMAP+84 04371000 CVTBRET EQU CVTMAP+82 04372000 CVTEXIT EQU CVTMAP+80 04373000 CVT0FN00 EQU CVTMAP+76 04374000 CVTDARA EQU CVTDAR+1 04375000 CVTRSV07 EQU CVTFLGS1 04376000 CVTRSV06 EQU CVTFLGS1 04377000 CVTRSV05 EQU CVTFLGS1 04378000 CVTRSV04 EQU CVTFLGS1 04379000 CVTRSV03 EQU CVTFLGS1 04380000 CVTRSV02 EQU CVTFLGS1 04381000 CVTRSV01 EQU CVTFLGS1 04382000 CVTDMPLK EQU CVTFLGS1 04383000 CVTXITP EQU CVTMAP+68 04384000 CVTZDTAB EQU CVTMAP+64 04385000 CVTMSLT EQU CVTMAP+60 04386000 CVTDATE EQU CVTMAP+56 04387000 CVTBTERM EQU CVTMAP+52 04388000 CVTSYSAD EQU CVTMAP+48 04389000 CVTXTLER EQU CVTMAP+44 04390000 CVTILK2 EQU CVTMAP+40 04391000 CVTILK1 EQU CVTMAP+36 04392000 CVTPRLTV EQU CVTMAP+32 04393000 CVTPCNVT EQU CVTMAP+28 04394000 CVT0VL00 EQU CVTMAP+24 04395000 CVTXAPG EQU CVTMAP+20 04396000 CVTBUF EQU CVTMAP+16 04397000 CVTJOB EQU CVTMAP+12 04398000 CVTLINK EQU CVTMAP+8 04399000 CVT0EF00 EQU CVTMAP+4 04400000 CVTTCBP EQU CVTMAP 04401000 CVT EQU CVTMAP 04402000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04403000 @RF00279 EQU @RC00272 04404000 @RF00404 EQU JOBSELCT 04405000 @RF00383 EQU @RC00355 04406000 @RF00452 EQU JOBSELCT 04407000 @PB00003 EQU @EL00001 04408000 @PB00002 EQU @PB00003 04409000 @ENDDATA EQU * 04410000 END IEFSD061,(C'PLS1940',0701,77270) 04411000