VPW**AI09 *W*170*18:13*FCMD### *JOB02492*VPW2 *VPW2 * * VPW//PRT001 DD SYSOUT=*,DCB=(RECFM=VBA) 1 J E S 2 J O B L O G -- S Y S T E M A I 0 9 -- N O D E M A S M A S 0 18:12:22 JOB02492 ---- FRIDAY, 19 JUN 1998 ---- 18.12.22 JOB02492 TSS7000I FSUPP17 LAST-USED 19 JUN 98 18:11 SYSTEM=AI09 FACILITY=BATCH 18.12.22 JOB02492 TSS7001I COUNT=15059 MODE=IMPL LOCKTIME=NONE NAME=SUN-JYOHOU SPECIAL TETSUYA 18.12.22 JOB02492 $HASP373 FCMD### STARTED - INIT 1 - CLASS F - SYS AI09 18.12.22 JOB02492 IEF403I FCMD### - STARTED - TIME=18.12.22 18.12.26 JOB02492 - --TIMINGS (MINS.)-- ----PAGING COUNTS--- 18.12.26 JOB02492 -JOBNAME STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS 18.12.26 JOB02492 -FCMD### A 00 984 2843 .00 .00 .0 36768 88 0 0 0 0 18.12.26 JOB02492 -FCMD### L 00 83 102 .00 .00 .0 2774 88 0 0 0 0 18.12.28 JOB02492 IEA630I OPERATOR @CMDDMY NOW ACTIVE, SYSTEM=AI09 , LU=@CMDDMY 18.12.29 JOB02492 IEA631I OPERATOR @CMDDMY NOW INACTIVE, SYSTEM=AI09 , LU=@CMDDMY 18.12.29 JOB02492 -FCMD### G 00 194 683 .00 .00 .0 5576 88 0 0 0 0 18.12.29 JOB02492 IEF404I FCMD### - ENDED - TIME=18.12.29 18.12.29 JOB02492 -FCMD### ENDED. NAME- TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .1 18.12.29 JOB02492 $HASP395 FCMD### ENDED 0------ JES2 JOB STATISTICS ------ - 19 JUN 1998 JOB EXECUTION DATE - 1,242 CARDS READ - 3,858 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 208 SYSOUT SPOOL KBYTES - 0.11 MINUTES EXECUTION TIME VPW//PRT002 DD SYSOUT=*,DCB=(RECFM=VBA) 1 1 //FCMD### JOB CLASS=F,MSGCLASS=1,NOTIFY=FSUPP17,TIME=1440, JOB02492 // USER=FSUPP17,PASSWORD= 2 //A EXEC PGM=IEV90,PARM=OBJECT,REGION=2000K 3 //SYSIN DD * 4 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 5 // DD DSN=SYS1.AMODGEN,DISP=SHR 6 // DD DSN=SYS1.MODGEN,DISP=SHR 7 //SYSUT1 DD UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1 8 //SYSPUNCH DD DUMMY 9 //SYSPRINT DD SYSOUT=*,DCB=(BLKSIZE=3509), // UNIT=(,SEP=(SYSUT1,SYSPUNCH)) 10 //SYSLIN DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)), // DCB=(BLKSIZE=400),DSN=&&LOADSET 11 //L EXEC PGM=IEWL,PARM='MAP,LET,LIST,AC=1,AMODE=31,RMODE=24', // REGION=1M,COND=(8,LT,A) 12 //SYSLIB DD DSN=DDMS.V1R2M1.OBJLIB,DISP=SHR //* DD DSN=SYS1.LINKLIB,DISP=SHR 13 //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 14 // DD DDNAME=SYSIN 15 //SYSLMOD DD DSN=DDMSL.V1R2M1.LOADLIB(@CMD),DISP=SHR, // UNIT=DASD,VOL=SER=FC9AI3 //*YSLMOD DD DISP=(,PASS),UNIT=SYSDA, //* SPACE=(CYL,(2,1,2)),DSN=&GOSET(GO) 16 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=&SYSUT1 17 //SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509) 18 //OBJ DD DISP=SHR,UNIT=SYSDA, // DSN=DDMS.V1R2M1.OBJLIB 19 //SYSIN DD * 20 //G EXEC PGM=IKJEFT01,COND=((9,LT,A),(9,LT,L)) 21 //STEPLIB DD DSN=DDMSL.V1R2M1.LOADLIB,DISP=SHR, // UNIT=DASD,VOL=SER=FC9AI3 22 //SYSTSPRT DD SYSOUT=* 23 //SYSTSIN DD * VPW//PRT003 DD SYSOUT=*,DCB=(RECFM=VBA) TSS7000I FSUPP17 LAST-USED 19 JUN 98 18:11 SYSTEM=AI09 FACILITY=BATCH TSS7001I COUNT=15059 MODE=IMPL LOCKTIME=NONE NAME=SUN-JYOHOU SPECIAL TETSUYA IEF236I ALLOC. FOR FCMD### A IEF237I JES2 ALLOCATED TO SYSIN IEF237I 0968 ALLOCATED TO SYSLIB IEF237I 0EE0 ALLOCATED TO IEF237I 0968 ALLOCATED TO IGD100I 0C48 ALLOCATED TO DDNAME SYSUT1 DATACLAS (DC#DEFLT) IEF237I DMY ALLOCATED TO SYSPUNCH IEF237I JES2 ALLOCATED TO SYSPRINT IGD100I 0C85 ALLOCATED TO DDNAME SYSLIN DATACLAS (DC#DEFLT) IEF142I FCMD### A - STEP WAS EXECUTED - COND CODE 0000 IEF285I FSUPP17.FCMD###.JOB02492.D0000101.? SYSIN IEF285I SYS1.MACLIB KEPT IEF285I VOL SER NOS= SYS9R4. IEF285I SYS1.AMODGEN KEPT IEF285I VOL SER NOS= DLB52A. IEF285I SYS1.MODGEN KEPT IEF285I VOL SER NOS= SYS9R4. IEF285I SYS98170.T181222.RA000.FCMD###.SYSUT1.H01 DELETED IEF285I VOL SER NOS= WKD401. IEF285I FSUPP17.FCMD###.JOB02492.D0000104.? SYSOUT IEF285I SYS98170.T181222.RA000.FCMD###.LOADSET.H01 PASSED IEF285I VOL SER NOS= WKD403. IEF373I STEP/A /START 1998170.1812 IEF374I STEP/A /STOP 1998170.1812 CPU 0MIN 00.44SEC SRB 0MIN 00.05SEC VIRT 2000K SYS 292K EXT 4K SYS 9416K IEF236I ALLOC. FOR FCMD### L IEF237I 0C9A ALLOCATED TO SYSLIB IEF237I 0C85 ALLOCATED TO SYSLIN IEF237I JES2 ALLOCATED TO IEF237I 0C9A ALLOCATED TO SYSLMOD IGD100I 0715 ALLOCATED TO DDNAME SYSUT1 DATACLAS (DC#DEFLT) IEF237I JES2 ALLOCATED TO SYSPRINT IEF237I 0C9A ALLOCATED TO OBJ IEF142I FCMD### L - STEP WAS EXECUTED - COND CODE 0000 IEF285I DDMS.V1R2M1.OBJLIB KEPT IEF285I VOL SER NOS= FC9AI3. IEF285I SYS98170.T181222.RA000.FCMD###.LOADSET.H01 DELETED IEF285I VOL SER NOS= WKD403. IEF285I FSUPP17.FCMD###.JOB02492.D0000102.? SYSIN IEF285I DDMSL.V1R2M1.LOADLIB KEPT IEF285I VOL SER NOS= FC9AI3. IEF285I SYS98170.T181222.RA000.FCMD###.SYSUT1.H01 DELETED IEF285I VOL SER NOS= WKD402. IEF285I FSUPP17.FCMD###.JOB02492.D0000105.? SYSOUT IEF285I DDMS.V1R2M1.OBJLIB KEPT IEF285I VOL SER NOS= FC9AI3. IEF373I STEP/L /START 1998170.1812 IEF374I STEP/L /STOP 1998170.1812 CPU 0MIN 00.04SEC SRB 0MIN 00.00SEC VIRT 172K SYS 280K EXT 1344K SYS 9420K IEF236I ALLOC. FOR FCMD### G IEF237I 0C9A ALLOCATED TO STEPLIB IEF237I JES2 ALLOCATED TO SYSTSPRT IEF237I JES2 ALLOCATED TO SYSTSIN IEF237I 0968 ALLOCATED TO SYS00001 IEF285I SYS1.UADS KEPT IEF285I VOL SER NOS= SYS9R4. IEF142I FCMD### G - STEP WAS EXECUTED - COND CODE 0000 IEF285I DDMSL.V1R2M1.LOADLIB KEPT IEF285I VOL SER NOS= FC9AI3. IEF285I FSUPP17.FCMD###.JOB02492.D0000106.? SYSOUT IEF285I FSUPP17.FCMD###.JOB02492.D0000103.? SYSIN IEF373I STEP/G /START 1998170.1812 IEF374I STEP/G /STOP 1998170.1812 CPU 0MIN 00.08SEC SRB 0MIN 00.01SEC VIRT 48K SYS 360K EXT 140K SYS 9516K IEF375I JOB/FCMD### /START 1998170.1812 IEF376I JOB/FCMD### /STOP 1998170.1812 CPU 0MIN 00.56SEC SRB 0MIN 00.06SEC VPW//PRT004 DD SYSOUT=*,DCB=(RECFM=VBA) 1 EXTERNAL SYMBOL DICTIONARY PAGE 1 -SYMBOL TYPE ID ADDR LENGTH LD ID FLAGS ASM H V 02 18.12 06/19/98 0 PC 0001 000000 00005E 00 @CMD SD 0002 000060 000828 06 CMDE ER 0003 PCLDEFS SD 0004 000888 000082 00 CMDE SD 0005 000910 001088 02 @HC ER 0006 @HC SD 0007 001998 0000EC 03 DUMMYCAL SD 0008 001A88 0006D8 02 1 PAGE 2 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0000000 1 START 2 * ----------------------------------------------------------------- 000000 4C4C407CC3D4C440 3 DC C'<< @CMD .. Enter MVS Command >>' 00001F 4040E58599A28996 4 DC C' Version ' 000029 A5F099F094F0 5 @VERSION DC CL6'v0r0m0' 6 DC C' ) _ Kimu // Compiled Date : &SYSDATE _ &SYSTIME ' 00002F 405D406D40D28994 + DC C' ) _ Kimu // Compiled Date : 06/19/98 _ 18.12 ' 7 PRINT NOGEN 8 * --- Start of Process -------------------------------------------- 000060 9 @CMD CSECT 10 @CMD AMODE 31 11 @CMD RMODE ANY 12 * --- Start of AR-Mode Program ( Initialize ) --- 13 SAVE (14,12),T,* Save Reg. 00006E B240 00E0 18 BAKR R14,0 Branch and Stack ( Stack Only ) 19 * set CPPL Base Reg. 000072 1861 20 LR R06,R01 000074 B219 0200 00200 21 SAC 512 AccessRegister(AR) Mode 22 SYSSTATE ASCENV=AR 23+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 000078 513F 0000 00000 24 LAE R03,0(R15,0) Load Address 31 Bit 00060 25 USING @CMD,R03 Base Reg. R03 , R05 26 * For Re-Entrant Process 27 STORAGE OBTAIN,LENGTH=R2ENTAL Getmain Storage 0000A0 5140 1000 00000 42 LAE R04,0(0,R01) R04 <- Dynamic Stor. Base 0000A4 5180 3230 00290 43 LAE R08,R2ENTA Copied Dinamic Stor. 0000A8 5890 3820 00880 44 L R09,=A(R2ENTAL) 0000AC 51A0 4000 00000 45 LAE R10,0(0,R04) 0000B0 18B9 46 LR R11,R09 0000B2 0EA8 47 MVCL R10,R08 00290 48 USING R2ENTA,R04 R04 <- Dynamic Stor. 0000B4 D203 D004 45F4 00004 00884 49 MVC 4(4,R13),=C'F1SA' set acro in save area 06150000 0000BA 18CD 50 LR R12,R13 0000BC 51D0 4000 00290 51 LAE R13,SA#001 Load New-R13 0000C0 50DC 0008 00008 52 ST R13,8(R12) Store New-R13 SA+8(Thd Word) 53 * --- Start of AR-Mode Program ( End-Initialize ) --- 54 * set CPPL Base Reg. 0000C4 5060 4180 00410 55 ST R06,CPPL_PTR save CPPL Address 00000 56 USING CPPL,R06 CPPL Base Reg. R06 57 * 00000 58 USING MCSCOMM,R05 0000C8 4150 4198 00428 59 LA R05,MCSENT 60 * 0000CC B219 0000 00000 61 SAC 0 Primary Mode 62 SYSSTATE ASCENV=P 63+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 64 * 0000D0 D701 5058 5058 00058 00058 65 XC COM_WTME,COM_WTME 0000D6 D701 505A 505A 0005A 0005A 66 XC COM_WLEN,COM_WLEN 0000DC D701 50AC 50AC 000AC 000AC 67 XC COM_TLEN,COM_TLEN 0000E2 9240 5008 00008 68 MVI COM_CMD,X'40' clear COMMAND RESULT AREA 0000E6 D24E 5009 5008 00009 00008 69 MVC COM_CMD+1(L'COM_CMD-1),COM_CMD 0000EC 9240 505C 0005C 70 MVI COM_WAIT,X'40' clear COMMAND RESULT AREA 0000F0 D250 505D 505C 0005D 0005C 71 MVC COM_WAIT+1(L'COM_WAIT+1),COM_WAIT 72 * 1 PAGE 3 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 00000F6 45E0 30F4 00154 73 BAL R14,@PPL parse command routine 74 * 75 * TPUT @CMDRES,L'@CMDRES 76 * 77 * MVC COM_CMD,@CMDRES 78 * MVC COM_WAIT,@WAITMES 79 * 80 * TPUT COM_CMD,L'COM_CMD 81 * 0000FA D207 5000 45E8 00000 00878 82 MVC COM_CONN(8),=CL8'OPERCMD' 000100 5060 5100 00100 83 ST R06,COM_CPPL Load CPPL Address 000104 D701 505A 505A 0005A 0005A 84 XC COM_WLEN,COM_WLEN 85 CALL CMDE,((R05)) 98 * 0012A 99 @BYE EQU * 100 *- L R13,SA#001+4 101 *- RETURN (14,12),RC=0 102 STORAGE RELEASE, Freemain Storage X LENGTH=R2ENTAL, X ADDR=(R04) 08650000 000152 0101 118 PR Program Return Mother 119 * 120 *-------------------------------------------------------------------- 121 * --- Sub Routine ------------------------------------------------- 122 * --- PPL ( parse service routine ) ------------------------------- 00154 123 @PPL EQU * 124 *- STM R00,R15,SAVEPPL save reg. 000154 B240 00E0 125 BAKR R14,0 Branch and Stack ( Stack Only ) 000158 B219 0000 00000 126 SAC 0 Primary Mode 127 SYSSTATE ASCENV=P 128+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 129 * 130 GETMAIN RU,LV=L_PPL getmain PPL comm area 000174 9001 4184 00414 142 STM R00,R01,PPL_LEN save getmain length and address 000178 58C0 4188 00418 143 L R12,PPL_ADR 00000 144 USING PPL,R12 PPL Base Reg. R12 00017C D203 C000 6004 00000 00004 145 MVC PPLUPT,CPPLUPT UPT address from CPPL 000182 D203 C004 600C 00004 0000C 146 MVC PPLECT,CPPLECT ECT address from CPPL 000188 D203 C014 6000 00014 00000 147 MVC PPLCBUF,CPPLCBUF command buffer from CPPL 00018E 4110 418C 0041C 148 LA R01,ANS load answer area address and 000192 5010 C010 00010 149 ST R01,PPLANS store it in the PPL 000196 D703 4190 4190 00420 00420 150 XC #ECB2,#ECB2 clear ECB ( event control block ) 00019C 4110 4190 00420 151 LA R01,#ECB2 load ECB address and 0001A0 5010 C008 00008 152 ST R01,PPLECB store it in the PPL 0001A4 5810 322C 0028C 153 L R01,PCLADCON load PCL address and 0001A8 5010 C00C 0000C 154 ST R01,PPLPCL store it in the PPL 155 * 156 CALLTSSR EP=IKJPARS,MF=(E,PPL) 182 DROP R12 0001DE 12FF 183 LTR R15,R15 test IKJPARS 0001E0 4770 31E2 00242 184 BNZ @PPL_ERR if error goto @PPL_ERR 185 * 0001E4 58C0 418C 0041C 186 L R12,ANS load PPL answer area 00000 187 USING PRDSECT,R12 188 * 1 PAGE 4 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 00001E8 5810 C008 00008 189 L R01,PCLCMD R01 <- Command Result Area 0001EC 4820 C00C 0000C 190 LH R02,PCLCMD+4 R02 <- Command Result Length 0001F0 0620 191 BCTR R02,0 0001F2 4220 3197 001F7 192 STC R02,*+5 193 * MVC @CMDRES(0),0(R01) copy dsname 0001F6 D200 5008 1000 00008 00000 194 MVC COM_CMD(0),0(R01) copy dsname 0001FC 5020 4128 003B8 195 ST R02,@CMDL 196 * 000200 5810 C01C 0001C 197 L R01,PCLMES R01 <- Command Result Area 000204 4820 C020 00020 198 LH R02,PCLMES+4 R02 <- Command Result Length 000208 1222 199 LTR R02,R02 test IKJPARS 00020A 4780 31BE 0021E 200 BZ @PPL_SP1 if error goto @PPL_ERR 00020E 0620 201 BCTR R02,0 000210 4220 31B5 00215 202 STC R02,*+5 000214 D200 412C 1000 003BC 00000 203 MVC @WAITMES(0),0(R01) copy dsname 00021A 4020 417C 0040C 204 STH R02,@WAITML 0021E 205 @PPL_SP1 EQU * 206 * 207 DROP R12 208 * 00021E 5810 4188 00418 209 L R01,PPL_ADR free main PPL comm area 210 FREEMAIN RU,LV=L_PPL,A=(R01) 00023C 41F0 0000 00000 222 LA R15,0 223 *- LM R00,R15,SAVEPPL load reg. 224 *- BR R14 return 000240 0101 225 PR Return Main 226 * 00242 227 @PPL_ERR EQU * 228 TPUT MSG#E001,L'MSG#E001 00025C 5810 4188 00418 239 L R01,PPL_ADR free main PPL comm area 240 FREEMAIN RU,LV=L_PPL,A=(R01) 000278 41F0 0008 00008 252 LA R15,8 253 *- LM R00,R15,SAVEPPL load reg. 254 *- BR R14 return 00027C 0101 255 PR 256 *-------------------------------------------------------------------- 257 * --- Sub Routine ( error routine ) ------------------------------- 258 * --- Super Locate Getmain Error ---------------------------------- 0027E 259 @TERM EQU * 00027E 58D0 4004 00294 260 L R13,SA#001+4 261 RETURN (14,12),RC=8 265 * --- Define Storage ---------------------------------------------- 266 * --- Reg. Save Area ---------------------------------------------- 267 * --- IKJPARS ( tso parse service routine ) ----------------------- 268 * PRINT GEN 00028C 00000888 269 PCLADCON DC A(PCLDEFS) 000290 270 PCLAREA DS 0F 271 PCLDEFS IKJPARM DSECT=PRDSECT 280 PCLCMD IKJPOSIT QSTRING, * PROMPT='MVS Command', * HELP=('Enter MVS Command ..') 302 PCLT IKJKEYWD 313 IKJNAME 'T',SUBFLD=PCLTFLD 323 PCLM IKJKEYWD 333 IKJNAME 'M',SUBFLD=PCLMFLD 1 PAGE 5 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 343 PCLTFLD IKJSUBF 348 PCLTM IKJIDENT 'NUMBER',FIRST=NUMERIC,OTHER=NUMERIC,DEFAULT='30' 370 PCLMFLD IKJSUBF 376 PCLMES IKJIDENT ALPHANUM,FIRST=ANY,OTHER=ANY 396 IKJENDP 406 * PRINT NOGEN 407 * --- DYNAMIC AREA --- 000290 408 R2ENTA DS 0F 000290 409 DS 0F 000290 410 SA#001 DS 18F 0002D8 411 SAVEPPL DS 18F 000320 412 SAVEIOPL DS 18F 000368 413 @CMDRES DS CL80 0003B8 414 @CMDL DS F 0003BC 415 @WAITMES DS CL80 00040C 416 @WAITML DS H 417 * --- CPPL pointer save area -------------------------------------- 000410 418 CPPL_PTR DS F 419 * --- PPL Getmain Area -------------------------------------------- 000414 420 PPL_LEN DS F PPL length 000418 421 PPL_ADR DS F PPL address 422 * --- PPL answer area --------------------------------------------- 00041C 423 ANS DS F 424 * --- ECB --------------------------------------------------------- 000420 425 #ECB2 DS F 000424 00000029 426 @VER_A DC A(@VERSION) 000428 427 MCSENT DS (MCSCOMML)X 428 * --- dump work area ---------------------------------------------- 000544 429 B#WK1 DS F dump work area 000548 430 B#WK2 DS F dump work area 000550 431 D#WK1 DS D dump work area 000558 432 D#WK2 DS D dump work area 000560 433 C#WK1 DS CL12 dump work area 00056C 434 C#WK2 DS CL12 dump work area 000578 435 P#WK1 DS PL8 dump work area 000580 436 P#WK2 DS PL8 dump work area 000588 437 WK#PRI#C DS CL5 work primary space ( cyl ) 00058D 438 WK#PRI#T DS CL5 work primary space ( trk ) 000592 439 WK#ALC#C DS CL5 work allocation space ( cyl ) 000597 440 WK#ALC#T DS CL5 work allocation space ( trk ) 00059C 441 WK#ALC#B DS F work allocation space ( bin ) 0005A0 442 WK#CYLS DS XL2 quantity of cylinder per volume 0005A2 443 WK#TRKS DS XL2 quantity of tracks per cylinder 0005A4 444 WK#EXTS DS 16XL10 extent data copy area 000644 445 WK#DEVT DS XL4 device type work area 000648 6E40C4C5C2E4C740 446 MSG#O001 DC CL79'> DEBUG 1' 000697 6E40C4C5C2E4C740 447 MSG#O002 DC CL79'> DEBUG 2' 0006E6 6E40C4C5C2E4C740 448 MSG#O003 DC CL79'> DEBUG 3' 449 * --- Error Message ----------------------------------------------- 000735 6E40D7D7D340C599 450 MSG#E001 DC CL79'> PPL Error Happend .. Bye !!' 451 * --- messgae ----------------------------------------------------- 000784 452 MSG#HELP DS 0CL79 000784 7B4040406E40E240 453 DC CL79'# > S @VOL,V=serial,opt1 ' 0007D3 7B40404040404040 454 DC CL79'# ' 000822 7B40404040404040 455 DC CL79'# Thanks for Your use .. Bye ! ' 1 PAGE 6 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 000ED 456 MSG#HPL EQU *-MSG#HELP 00871 457 R2ENTAX EQU * 005E1 458 R2ENTAL EQU *-R2ENTA Re-Entrant Area Length 000878 459 LTORG 000878 D6D7C5D9C3D4C440 460 =CL8'OPERCMD' 000880 000005E1 461 =A(R2ENTAL) 000884 C6F1E2C1 462 =C'F1SA' 463 * ----------------------------------------------------------------- 464 * --- 31 Bit Addressing Mode --- 465 CMDE AMODE 31 466 CMDE RMODE 24 000910 467 CMDE CSECT 468 * --------------------------------------------------------- 469 * --- Start of AR-Mode Program ( Initialize ) --- 470 PRINT NOGEN 000910 B240 00E0 471 BAKR R14,0 Branch and Stack ( Stack Only ) 000914 1851 472 LR R05,R01 Copy Paramater Address . 000916 B219 0200 00200 473 SAC 512 AccessRegister(AR) Mode 474 SYSSTATE ASCENV=AR AR Mode 475+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 00091A 513F 0000 00000 476 LAE R03,0(R15,0) Load Address AR Mode 00910 477 USING CMDE,R03 Base Reg. R03 478 * For Re-Entrant Process 479 STORAGE OBTAIN,LENGTH=REENTAL Getmain Storage 000944 5140 1000 00000 494 LAE R04,0(0,R01) R04 <- Dynamic Stor. Base 000948 5180 3B04 01414 495 LAE R08,REENTA R08 <- Dinamic Stor Adr. 00094C 5890 3A60 01370 496 L R09,=A(REENTAL) R09 <- Dynamic Stor Leng. 000950 5160 4000 00000 497 LAE R06,0(0,R04) 000954 1879 498 LR R07,R09 000956 0E68 499 MVCL R06,R08 01414 500 USING REENTA,R04 R04 <- Dynamic Stor. 000958 51D0 4000 01414 501 LAE R13,SAVEAREA Load New-R13 00095C D203 D004 3A64 00004 01374 502 MVC 4(4,R13),=C'F1SA' set acro in save area 503 * --- Start of AR-Mode Program ( End-Initialize ) --- 000962 B219 0000 00000 504 SAC 0 Primary Mode 505 SYSSTATE ASCENV=P 506+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 507 * --- Main Process --- 508 * --- Start of Argument Parameter --- 000966 5855 0000 00000 509 L R05,0(R05) R05 <- Parameter Area Dsect 00000 510 USING MCSCOMM,R05 511 * 00096A 4110 4138 0154C 512 LA R01,MSG#0004 00096E 4120 0050 00050 513 LA R02,L'MSG#0004 000972 45E0 3880 01190 514 BAL R14,@PUTL#S Echo Message 515 * 000976 D24A 40ED 5008 01501 00008 516 MVC MSG#0003+05(75),COM_CMD Copy Command to Message Area 00097C 4110 40E8 014FC 517 LA R01,MSG#0003 000980 4120 0050 00050 518 LA R02,L'MSG#0003 000984 45E0 3880 01190 519 BAL R14,@PUTL#S Echo Message 000988 D703 5114 5114 00114 00114 520 XC COM_RC,COM_RC Clear Return Code 00098E D703 5118 5118 00118 00118 521 XC COM_RSN,COM_RSN Clear Reason Code 522 * --- End of Argument Parameter --- 523 * --- MCS Console Activate --- 000994 45E0 3164 00A74 524 BAL R14,MCS#ACT MCS Console Activate . 1 PAGE 7 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0000998 12FF 525 LTR R15,R15 if Comsole Act Error 00099A 4770 313A 00A4A 526 BNZ QUIT1 goto QUIT 527 * 00099E 4810 3AA0 013B0 528 LH R01,=H'100' 1Sec = 0.01Sec * 100 0009A2 4C10 5058 00058 529 MH R01,COM_WTME 0009A6 1211 530 LTR R01,R01 0009A8 4770 30A0 009B0 531 BNZ WAITSET1 0009AC 5810 3A68 01378 532 L R01,=F'3000' 30Sec ( Default ) 009B0 533 WAITSET1 EQU * 0009B0 5010 3AFC 0140C 534 ST R01,WAITMAX 0009B4 4170 3AFC 0140C 535 LA R07,WAITMAX 0009B8 4194 0243 00243 536 LA R09,MSG#0014+25-REENTA(R04) 537 CALL @HC,((R07),(R09),4) 0009E6 4110 422A 0163E 553 LA R01,MSG#0014 0009EA 4120 0050 00050 554 LA R02,L'MSG#0014 0009EE 45E0 3880 01190 555 BAL R14,@PUTL#S Echo Message 556 * 0009F2 D703 3AF8 3AF8 01408 01408 557 XC WMAXFLG,WMAXFLG 558 * STIMERM SET,BINTVL=WAITMAX,ID=WMAXID,WAIT=NO,EXIT=WMAXEXT 559 STIMERM SET,BINTVL=WAITMAX,ID=WMAXID,WAIT=NO 574 * 575 * --- Command Issue --- 000A22 45E0 32B4 00BC4 576 BAL R14,CMDISSUE MVS Command Enter 577 * 578 STIMERM CANCEL,ID=WMAXID 591 * 592 * --- Extended MCS Console De-Activate --- 000A46 45E0 34FA 00E0A 593 BAL R14,MCS#DEA MCS Console DeActivate . 594 * Get Messages 595 * --- End-Main Process --- 596 * --- Terminate of Program --- 00A4A 597 QUIT1 EQU * 598 STORAGE RELEASE, Freemain Storage X LENGTH=REENTAL, X ADDR=(R04) 000A72 0101 614 PR Program Return Mother 615 * --- End of Terminate process --- 616 * --- MCS Console Activate --- 00A74 617 MCS#ACT EQU * 000A74 B240 00E0 618 BAKR R14,0 Branch and Stack ( Stack Only ) 619 * --- MCS Console AUTH=MSTR --- 000A78 D73B 4536 4536 0194A 0194A 620 XC @MCSOP,@MCSOP Set MCSOP-MCSOATH1 Field 00000 621 USING MCSOPPRM,R15 000A7E 41F0 4536 0194A 622 LA R15,@MCSOP 000A82 9280 F002 00002 623 MVI MCSOATH1,MCSOMSTR MCS 624 DROP R15 625 * --- Parameter Set --- 000A86 D207 442A 5000 0183E 00000 626 MVC CONSNM(8),COM_CONN Copy Console Name 000A8C D207 442A 3A28 0183E 01338 627 MVC CONSNM(8),=CL8'@CMDDMY' 628 * --- SVC Mode Set --- 000A92 B219 0000 00000 629 SAC 0 Primary Mode 630 SYSSTATE ASCENV=P 631+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 632 MODESET KEY=ZERO,MODE=SUP SVC Mode 000AA6 B219 0200 00200 639 SAC 512 AccessRegister(AR) Mode 1 PAGE 8 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 640 SYSSTATE ASCENV=AR 641+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 642 * --- Primary | AR and SVC Mode --- 643 MCSOPER REQUEST=ACTIVATE, MCS Console Activate C NAME=CONSNM, Console Name C CONSID=CONSID, Console ID Address C TERMNAME=CONSNM, Terminal Name C OPERPARM=@MCSOP, C MCSCSA=MCSA, C MCSCSAA=MCSCSAA, C MSGECB=MCSECB, C RTNCODE=RC, C RSNCODE=RSN 647+ PRINT ON 01-MCSOP 710 * --- Problem Mode Set --- 000B6E B219 0000 00000 711 SAC 0 Primary Mode 712 SYSSTATE ASCENV=P 713+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 714 MODESET KEY=NZERO,MODE=PROB 721 * --- Check Condition Code --- 000B82 58F0 4450 01864 722 L R15,RC Check Return Code . 000B86 12FF 723 LTR R15,R15 000B88 4780 32B2 00BC2 724 BZ @MCSACTQ 000B8C 58F0 4454 01868 725 L R15,RSN Check Reason Code . 000B90 12FF 726 LTR R15,R15 000B92 4780 32B2 00BC2 727 BZ @MCSACTQ 728 * --- Error Code Set --- 000B96 D207 5104 3A30 00104 01340 729 MVC COM_MAC(8),=CL8'MCSOPER' 000B9C D207 510C 3A38 0010C 01348 730 MVC COM_ACT(8),=CL8'ACTIVATE' 000BA2 D203 5114 4450 00114 01864 731 MVC COM_RC(4),RC 000BA8 D203 5118 4454 00118 01868 732 MVC COM_RSN(4),RSN 000BAE D207 404D 3A30 01461 01340 733 MVC ERRMSG01+05(8),=CL8'MCSOPER' 000BB4 D207 4056 3A38 0146A 01348 734 MVC ERRMSG01+14(8),=CL8'ACTIVATE' 000BBA 45E0 35B4 00EC4 735 BAL R14,ECHOERR 000BBE 41F0 0008 00008 736 LA R15,8 00BC2 737 @MCSACTQ EQU * 000BC2 0101 738 PR Return 739 * --- End of MCS Console Activate --- 740 * --- File Read and Command Precess Loop --- 00BC4 741 CMDISSUE EQU * 000BC4 B240 00E0 742 BAKR R14,0 Branch and Stack ( Stack Only ) 000BC8 D700 44E0 44E0 018F4 018F4 743 XC MSGWAITF,MSGWAITF 744 * 00BCE 745 CMDENTR EQU * 746 * --- Copy Parameter Set --- 000BCE D24F 43DA 5008 017EE 00008 747 MVC CMDBUF(80),COM_CMD Copy Command Buffer 748 * --- Mode Set --- 000BD4 B219 0000 00000 749 SAC 0 Primary Mode 750 SYSSTATE ASCENV=P 751+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 752 MODESET KEY=ZERO,MODE=SUP SVC Mode 759 * --- Primary and SVC Mode --- 000BE6 4120 43D8 017EC 760 LA R02,TEXTAREA 761 MGCRE TEXT=(R02), C CONSID=CONSID, C 1 PAGE 9 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 CART=MCART, C CMDFLAG=NOHCPY, C MF=(E,LMGCRE) 000C14 12FF 771 LTR R15,R15 If Nomal Complete 000C16 4780 333E 00C4E 772 BZ CMDWAIT goto CMDWAIT 773 * --- Problem Mode --- 774 MODESET KEY=NZERO,MODE=PROB 781 * --- Error Code Set --- 000C2A 50F0 5114 00114 782 ST R15,COM_RC 000C2E D207 5104 3A40 00104 01350 783 MVC COM_MAC(8),=CL8'MGCRE' 000C34 D207 510C 3A48 0010C 01358 784 MVC COM_ACT(8),=CL8' ' 785 * 000C3A D207 404D 3A40 01461 01350 786 MVC ERRMSG01+05(8),=CL8'MGCRE' 000C40 D207 4056 3A48 0146A 01358 787 MVC ERRMSG01+14(8),=CL8' ' 000C46 45E0 35B4 00EC4 788 BAL R14,ECHOERR 789 * 000C4A 47F0 34F4 00E04 790 B CMDISU#X Return to Main Routine 00C4E 791 CMDWAIT EQU * 792 * --- Primary Mode Set --- 000C4E B219 0000 00000 793 SAC 0 Primary Mode 794 SYSSTATE ASCENV=P 795+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 796 * --- Problem Mode --- 797 MODESET KEY=NZERO,MODE=PROB 804 * --- Wait to Message --- 805 WAIT ECB=MCSECB 810 * 00C6C 811 MSGLP EQU * 812 * --- Primary Mode Set --- 000C6C B219 0000 00000 813 SAC 0 Primary Mode 814 SYSSTATE ASCENV=P 815+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 816 * --- SVC Mode Set --- 817 MODESET KEY=ZERO,MODE=SUP SVC Mode 824 * --- AR Mode Set --- 000C7E B219 0200 00200 825 SAC 512 AccessRegister(AR) Mode 826 SYSSTATE ASCENV=AR 827+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 828 * --- Get Messgae --- 829 MCSOPMSG REQUEST=GETMSG, C CONSID=CONSID, Console ID C RTNCODE=RC, Return Code C RSNCODE=RSN Reason Code 833+ PRINT ON 01-MCSOP 873 * --- Message Data Block Set --- 000CE6 5180 1000 00000 874 LAE R08,0(0,R01) put mdb address in R08 00000 875 USING MDB,R08 addressability to the mdb 876 * --- Primary Mode Set --- 000CEA B219 0000 00000 877 SAC 0 Primary Mode 878 SYSSTATE ASCENV=P 879+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 880 * --- Problem Mode Set --- 881 MODESET KEY=NZERO,MODE=PROB 888 * --- AR Mode Set --- 000CFE B219 0200 00200 889 SAC 512 AccessRegister(AR) Mode 1 PAGE 10 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 890 SYSSTATE ASCENV=AR 891+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 000D02 9200 4458 0186C 892 MVI MDBFLGS,0 clear processing flags 000D06 9200 4459 0186D 893 MVI CMDRSP,0 assume not issuing command response 000D0A D503 4450 3A78 01864 01388 894 CLC RC,=F'8' if any messages 000D10 4740 3630 00F40 895 BL GOTMDB process it (rc<8) 000D14 4770 34B8 00DC8 896 BNE GOTERR some kind of error (rc>8) 897 * no mode Messages 000D18 9180 44E0 018F4 898 TM MSGWAITF,X'80' if no Wait Message 000D1C 4710 34E4 00DF4 899 BO CMDISU#Q goto CMDISU#Q 900 * 000D20 B219 0000 00000 901 SAC 0 Primary Mode 902 SYSSTATE ASCENV=P 903+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 904 * 905 STIMERM TEST,ID=WMAXID,TU=WAITTU 000D46 D503 34B4 3A7C 00DC4 0138C 918 CLC WAITTU,=F'0' 000D4C 4770 3474 00D84 919 BNE WAITSKP1 000D50 4810 50AC 000AC 920 LH R01,COM_TLEN 000D54 1211 921 LTR R01,R01 000D56 4780 3464 00D74 922 BZ WAITSKP2 000D5A 4210 344F 00D5F 923 STC R01,*+5 000D5E D200 427F 50AE 01693 000AE 924 MVC MSG#0015+05(0),COM_TOUT 000D64 4110 427A 0168E 925 LA R01,MSG#0015 000D68 4120 0050 00050 926 LA R02,L'MSG#0015 000D6C 45E0 3880 01190 927 BAL R14,@PUTL#S Echo Message 000D70 47F0 34F4 00E04 928 B CMDISU#X De-Activate Console 00D74 929 WAITSKP2 EQU * 000D74 4110 432E 01742 930 LA R01,MSG#0016 Timeout Message 000D78 4120 0050 00050 931 LA R02,L'MSG#0016 000D7C 45E0 3880 01190 932 BAL R14,@PUTL#S Echo Message 000D80 47F0 34F4 00E04 933 B CMDISU#X De-Activate Console 00D84 934 WAITSKP1 EQU * 935 * STIMER WAIT,DINTVL=WAITXX Delay 2Sec 936 STIMERM SET,DINTVL=WAITXX,ID=WAITID,WAIT=YES 000DAE 47F0 333E 00C4E 951 B CMDWAIT 000DB8 952 DS 0D 953 * HHMMSSTT 000DB8 F0F0F0F0F0F2F0F0 954 WAITXX DC CL8'00000200' Delay 2Sec 000DC0 955 WAITID DS XL4 000DC4 956 WAITTU DS XL4 00DC8 957 GOTERR EQU * some kind of error (rc>8) 958 * --- Error Code Set --- 000DC8 D207 5104 3A50 00104 01360 959 MVC COM_MAC(8),=CL8'MCSOPMSG' 000DCE D207 510C 3A58 0010C 01368 960 MVC COM_ACT(8),=CL8'GETMSG' 000DD4 D203 5114 4450 00114 01864 961 MVC COM_RC(4),RC 000DDA D203 5118 4454 00118 01868 962 MVC COM_RSN(4),RSN 000DE0 D207 404D 3A50 01461 01360 963 MVC ERRMSG01+05(8),=CL8'MCSOPMSG' 000DE6 D207 4056 3A58 0146A 01368 964 MVC ERRMSG01+14(8),=CL8'GETMSG' 000DEC 45E0 35B4 00EC4 965 BAL R14,ECHOERR 000DF0 47F0 34F4 00E04 966 B CMDISU#X De-Activate Console 00DF4 967 CMDISU#Q EQU * 000DF4 B219 0000 00000 968 SAC 0 Primary Mode 969 SYSSTATE ASCENV=P 970+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 1 PAGE 11 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0000DF8 4110 437E 01792 971 LA R01,MSG#0017 End of Wait Loop Message 000DFC 4120 0050 00050 972 LA R02,L'MSG#0017 000E00 45E0 3880 01190 973 BAL R14,@PUTL#S Echo Message 00E04 974 CMDISU#X EQU * 975 * --- Primary Mode Set --- 000E04 B219 0000 00000 976 SAC 0 Primary Mode 977 SYSSTATE ASCENV=P 978+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 000E08 0101 979 PR 980 * --- MCS Console De-Activate --- 00E0A 981 MCS#DEA EQU * 000E0A B240 00E0 982 BAKR R14,0 Branch and Stack ( Stack Only ) 983 * --- Primary Mode Set --- 000E0E B219 0000 00000 984 SAC 0 Primary Mode 985 SYSSTATE ASCENV=P 986+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 987 * --- SVC Mode Set --- 988 MODESET KEY=ZERO,MODE=SUP SVC Mode 995 * --- AR Mode Set --- 000E22 B219 0200 00200 996 SAC 512 AccessRegister(AR) Mode 997 SYSSTATE ASCENV=AR 998+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 999 MCSOPER REQUEST=DEACTIVATE, C CONSID=CONSID 1003+ PRINT ON 01-MCSOP 1053 * --- Primary Mode Set --- 000EAE B219 0000 00000 1054 SAC 0 Primary Mode 1055 SYSSTATE ASCENV=P 1056+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 1057 * --- Problem Mode Set --- 1058 MODESET KEY=NZERO,MODE=PROB 000EC2 0101 1065 PR Return 1066 * --- End of Display Command Issue --- 1067 * 1068 * --- Call Error Message --- 00EC4 1069 ECHOERR EQU * 000EC4 B240 00E0 1070 BAKR R14,0 Branch and Stack ( Stack Only ) 1071 * --- Primary Mode Set --- 000EC8 B219 0000 00000 1072 SAC 0 Primary Mode 1073 SYSSTATE ASCENV=P 1074+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 000ECC 4174 0450 00450 1075 LA R07,RC-REENTA(R04) 000ED0 4194 0068 00068 1076 LA R09,ERRMSG01+32-REENTA(R04) 1077 CALL @HC,((R07),(R09),4) 000EFE 4174 0454 00454 1093 LA R07,RSN-REENTA(R04) 000F02 4194 0075 00075 1094 LA R09,ERRMSG01+45-REENTA(R04) 1095 CALL @HC,((R07),(R09),4) 000F32 4110 4048 0145C 1111 LA R01,ERRMSG01 000F36 4120 0050 00050 1112 LA R02,L'ERRMSG01 000F3A 45E0 3880 01190 1113 BAL R14,@PUTL#S Echo Message 000F3E 0101 1114 PR 1115 * --- Call Error Message --- 1116 * -------------------------------------------------------------- 1117 * MDBTYPE 1118 * R08 -> +--------------------+ --- --- 1 PAGE 12 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 1119 * | MDB Header | x'0001'(MDBTYP1) | MDBHLEN 1120 * +--------------------+ MDBLEN R06-> --- 1121 * |General Object | x'0001'(MDBGOBJ) | 1122 * +--------------------+ | 1123 * |Control Prog Object | x'0002'(MDBCOBJ) | 1124 * +--------------------+ | 1125 * |Text Object | x'0004'(MDBTOBJ) | 1126 * +--------------------+ | 1127 * |Text Object | | 1128 * +--------------------+ | 1129 * .................. | 1130 * ............. | 1131 * ........ R07-> --- 1132 * 000F40 1133 GOTMDB DS 0H 000F40 1878 1134 LR R07,R08 calc end of mbd in R07 000F42 4A70 8000 00000 1135 AH R07,MDBLEN start+mdblen in header 000F46 1868 1136 LR R06,R08 remember start of MDB for pass 2 000F48 4188 000C 0000C 1137 LA R08,MDBHLEN(R08) bump to 1st object 000F4C 1138 OBJLP DS 0H loop through the objects 000F4C 48C0 8002 00002 1139 LH R12,MDBTYPE get type 000F50 59C0 3A80 01390 1140 C R12,=A(MDBGOBJ) check for general object 000F54 4770 3658 00F68 1141 BNE NOTG not general object 000F58 9101 4458 0186C 1142 TM MDBFLGS,MDBFGO see if first general object 000F5C 4710 3670 00F80 1143 BO NXTOBJ no, skip it 000F60 45E0 36C4 00FD4 1144 BAL R14,GOTMDBG process general object 000F64 47F0 3670 00F80 1145 B NXTOBJ bump to next object 000F68 1146 NOTG DS 0H 000F68 59C0 3A84 01394 1147 C R12,=A(MDBCOBJ) check for control prog object 000F6C 4770 3670 00F80 1148 BNE NOTC not control prog object 000F70 9102 4458 0186C 1149 TM MDBFLGS,MDBFCO see if first control prog object 000F74 4710 3670 00F80 1150 BO NXTOBJ no, skip it 000F78 45E0 372C 0103C 1151 BAL R14,GOTMDBC process control prog object 000F7C 47F0 3670 00F80 1152 B NXTOBJ bump to next object 000F80 1153 NOTC DS 0H not control prog obj 000F80 1154 NXTOBJ DS 0H find next object 000F80 9103 4458 0186C 1155 TM MDBFLGS,MDBFGO+MDBFCO see if we found general and SCP 000F84 4710 3686 00F96 1156 BO FNDTXT got them, loop through text objs 000F88 4A80 8000 00000 1157 AH R08,MDBLEN bump to next object 000F8C 1987 1158 CR R08,R07 see if this is the end 000F8E 4740 363C 00F4C 1159 BL OBJLP no, get another object 000F92 47F0 335C 00C6C 1160 B MSGLP missing necessary objects, skip it 1161 *---------------------------------------------------------------------* 1162 *- -* 1163 *- FNDTXT: ENTRY VIA BRANCH (NOT A SUBROUTINE) -* 1164 *- Function: Process all text objects in all MDBs for this message. -* 1165 *- Text objects are always ordered, but it cannot be -* 1166 *- assumed that they are contiguous. -* 1167 *- Operation: -* 1168 *- find end of MDB -* 1169 *- get pointer to next MDB in message -* 1170 *- loop through MDBs -* 1171 *- loop through objects -* 1172 *- when text object -* 1173 *- call GOTMDBT to process text object -* 1 PAGE 13 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 1174 *- otherwise ignore object -* 1175 *- skip to next object -* 1176 *- add object length -* 1177 *- if end of MDB, move to next MDB -* 1178 *- -* 1179 *---------------------------------------------------------------------* 000F96 1180 FNDTXT DS 0H 000F96 1886 1181 LR R08,R06 reset R08 to start of MDB 000F98 1182 TXTLP DS 0H 000F98 1878 1183 LR R07,R08 calc end of mbd in R07 000F9A 4A70 8000 00000 1184 AH R07,MDBLEN start+mdblen in header 000F9E 5160 8000 00000 1185 LAE R06,0(0,R08) calc prefix address in R06 000FA2 4B60 3AA2 013B2 1186 SH R06,=AL2(MDBPLNNO) prefix=start-prefix length 00000 1187 USING MDBPRFX,R06 get addressability 000FA6 5860 6008 00008 1188 L R06,MDBPNEXT get forward pointer in R06 1189 DROP R06 R06 no longer base for prefix 000FAA 4188 000C 0000C 1190 LA R08,MDBHLEN(R08) bump to 1st object 000FAE 1191 TOBJLP DS 0H loop through the objects 000FAE 48C0 8002 00002 1192 LH R12,MDBTYPE get type 000FB2 59C0 3A88 01398 1193 C R12,=A(MDBTOBJ) check for text object 000FB6 4770 36AE 00FBE 1194 BNE NOTT not text object 000FBA 45E0 37E2 010F2 1195 BAL R14,GOTMDBT process text object 000FBE 1196 NOTT DS 0H 000FBE 4A80 8000 00000 1197 AH R08,MDBLEN bump to next object 000FC2 1987 1198 CR R08,R07 see if this is the end 000FC4 4740 369E 00FAE 1199 BL TOBJLP no, get another object 000FC8 1266 1200 LTR R06,R06 check for more MDBs for message 000FCA 4780 335C 00C6C 1201 BZ MSGLP done with message 000FCE 1886 1202 LR R08,R06 next mdb 000FD0 47F0 3688 00F98 1203 B TXTLP process the mdb 1204 DROP R08 1205 * --- General Object --- 1206 SYSSTATE ASCENV=AR let macros know AR mode 1207+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 000FD4 1208 GOTMDBG DS 0H 000FD4 B240 00E0 1209 BAKR R14,0 save caller environment 00000 1210 USING MDBG,R08 addressability to general object 1211 * --- Copy General Information to Message Area --- 000FD8 D203 40B0 8014 014C4 00014 1212 MVC MSG#0002+24(4),MDBGDSTP Copy Date Stamp 000FDE D202 40B5 8018 014C9 00018 1213 MVC MSG#0002+29(3),MDBGDSTP+4 000FE4 D207 40B9 8008 014CD 00008 1214 MVC MSG#0002+33(8),MDBGTIMH Copy Time Stamp 000FEA D203 43D0 8004 017E4 00004 1215 MVC WK#F,MDBGMID Copy Messgae-ID to Work Area 1216 * --- Primary Mode --- 000FF0 B219 0000 00000 1217 SAC 0 Primary Mode 1218 SYSSTATE ASCENV=P 1219+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 1220 * --- Binary Data to Chanacter Convert --- 000FF4 4174 03D0 003D0 1221 LA R07,WK#F-REENTA(R04) 000FF8 4194 00C5 000C5 1222 LA R09,MSG#0002+45-REENTA(R04) 1223 CALL @HC,((R07),(R09),4) 1239 * --- Show General Messgae --- 001026 4110 4098 014AC 1240 LA R01,MSG#0002 00102A 4120 0050 00050 1241 LA R02,L'MSG#0002 Write General Object Information 00102E 45E0 3880 01190 1242 BAL R14,@PUTL#S Echo Message 1243 * --- AR Mode Set --- 1 PAGE 14 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0001032 B219 0200 00200 1244 SAC 512 AccessRegister(AR) Mode 1245 SYSSTATE ASCENV=AR 1246+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 1247 * 001036 9601 4458 0186C 1248 OI MDBFLGS,MDBFGO set processed general object 00103A 0101 1249 PR 1250 DROP R08 1251 *---------------------------------------------------------------------* 1252 *- -* 1253 *- GOTMDBC: BRANCH ENTERED, ASCMODE=AR,R08=ADDR(control prog object)-* 1254 *- Function: process MDB control program object -* 1255 *- Operation: -* 1256 *- establish addressability to the control program object -* 1257 *- if this is an MVS object -* 1258 *- set flag indicating control prog object found for the msg -* 1259 *- save message text offset for text processing -* 1260 *- if this is a command response message -* 1261 *- save the CART -* 1262 *- indicate that the text echo should be command response -* 1263 *- -* 1264 *---------------------------------------------------------------------* 1265 SYSSTATE ASCENV=AR let macros know AR mode 1266+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 00103C 1267 GOTMDBC DS 0H 00103C B240 00E0 1268 BAKR R14,0 save caller environment 00000 1269 USING MDBSCP,R08 addressability to control prog object 001040 D503 8008 3A8C 00008 0139C 1270 CLC MDBCPNAM,=C'MVS ' make sure it is an MVS object 001046 4770 37E0 010F0 1271 BNE GOTC1 if not, just skip it 00104A 9602 4458 0186C 1272 OI MDBFLGS,MDBFCO set processed control prog object 00104E 4810 806E 0006E 1273 LH R01,MDBCTOFF get text offset 001052 5010 445C 01870 1274 ST R01,TOFF save it for text processing 1275 * 1276 * --- Binary Data to Chanacter Convert --- 1277 * --- Primary Mode --- 001056 D20F 4572 8014 01986 00014 1278 MVC WKCERC,MDBCERC 00105C D201 4582 8024 01996 00024 1279 MVC WKCDESC,MDBCDESC 001062 B219 0000 00000 1280 SAC 0 Primary Mode 1281 SYSSTATE ASCENV=P 1282+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 001066 4174 0572 00572 1283 LA R07,WKCERC-REENTA(R04) 00106A 4194 01EC 001EC 1284 LA R09,MSG#0007+18-REENTA(R04) 1285 CALL @HC,((R07),(R09),16) 00109A 4174 0582 00582 1301 LA R07,WKCDESC-REENTA(R04) 00109E 4194 0217 00217 1302 LA R09,MSG#0007+61-REENTA(R04) 1303 CALL @HC,((R07),(R09),2) 0010CE 4110 41DA 015EE 1319 LA R01,MSG#0007 0010D2 4120 0050 00050 1320 LA R02,L'MSG#0007 0010D6 45E0 3880 01190 1321 BAL R14,@PUTL#S Echo Message 1322 * --- AR Mode Set --- 0010DA B219 0200 00200 1323 SAC 512 AccessRegister(AR) Mode 1324 SYSSTATE ASCENV=AR 1325+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 1326 * --- Binary Data to Chanacter Convert --- 0010DE 9140 8028 00028 1327 TM MDBCATT1,MDBCMCSC check if command response 0010E2 4780 37E0 010F0 1328 BZ GOTC1 not command response 1 PAGE 15 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 00010E6 D207 4438 8054 0184C 00054 1329 MVC MCART,MDBCCART hold onto cart 0010EC 9201 4459 0186D 1330 MVI CMDRSP,1 issue any WTOs as cmd response 0010F0 1331 GOTC1 DS 0H 0010F0 0101 1332 PR 1333 DROP R08 1334 *---------------------------------------------------------------------* 1335 *- -* 1336 *- GOTMDBT: BRANCH ENTERED, ASCMODE=AR, R08=ADDR(text object) -* 1337 *- Function: process MDB text objects -* 1338 *- Operation: -* 1339 *- establish addressability to the text object -* 1340 *- calculate the length of the text -* 1341 *- move it to a buffer -* 1342 *- set the length -* 1343 *- issue text as a single line WTO -* 1344 *- -* 1345 *---------------------------------------------------------------------* 1346 SYSSTATE ASCENV=AR let macros know AR mode 1347+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=AR 01-SYSST 0010F2 1348 GOTMDBT DS 0H 0010F2 B240 00E0 1349 BAKR R14,0 save caller environment 00000 1350 USING MDBT,R08 addressability to text object 1351 * 0010F6 5120 800A 0000A 1352 LAE R02,MDBTMSGT get address of text 0010FA 5A20 445C 01870 1353 A R02,TOFF bump past prefix info 0010FE D503 4462 2000 01876 00000 1354 CLC WTOID,0(R02) see if this message is my echo 001104 4780 3876 01186 1355 BE GOTTX don't redisplay my text echo 001108 4810 505A 0005A 1356 LH R01,COM_WLEN 00110C 1211 1357 LTR R01,R01 00110E 4780 382E 0113E 1358 BZ MDBTWAI2 001112 4210 3807 01117 1359 STC R01,*+5 001116 D54F 505C 2000 0005C 00000 1360 CLC COM_WAIT,0(R02) see if this message is my echo 00111C 4770 3836 01146 1361 BNE MDBTWAIT don't redisplay my text echo 1362 * 001120 4210 3815 01125 1363 STC R01,*+5 001124 D200 419B 505C 015AF 0005C 1364 MVC MSG#0005+17(0),COM_WAIT 00112A 4110 418A 0159E 1365 LA R01,MSG#0005 Get Buffer Text 00112E 4120 0050 00050 1366 LA R02,L'MSG#0005 001132 45E0 3880 01190 1367 BAL R14,@PUTL#S Echo Message 001136 9680 44E0 018F4 1368 OI MSGWAITF,X'80' 00113A 47F0 3836 01146 1369 B MDBTWAIT don't redisplay my text echo 0113E 1370 MDBTWAI2 EQU * 1371 *?* SAC 0 Primary Mode 1372 *?* SYSSTATE ASCENV=P 1373 *?* WTO 'STOR-MGR: NO RESPONSE WAIT ...' 1374 *?* SAC 512 AccessRegister(AR) Mode 1375 *?* SYSSTATE ASCENV=AR AR Mode 00113E 9680 44E0 018F4 1376 OI MSGWAITF,X'80' 001142 47F0 3836 01146 1377 B MDBTWAIT don't redisplay my text echo 01146 1378 MDBTWAIT EQU * 1379 * 001146 4810 8000 00000 1380 LH R01,MDBTLEN get text object length 00114A 5B10 3A90 013A0 1381 S R01,=A(MDBTMSGT-MDBTLEN) subtract non-text size 00114E 5B10 445C 01870 1382 S R01,TOFF take off offset to text 001152 5910 3A94 013A4 1383 C R01,=A(L'WTOTXT) make sure its not too long for buf 1 PAGE 16 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0001156 47D0 384E 0115E 1384 BNH GOTT1 ok 00115A 5810 3A94 013A4 1385 L R01,=A(L'WTOTXT) not ok, truncate at buf length 00115E 1386 GOTT1 DS 0H 00115E 5B10 3A98 013A8 1387 S R01,=F'1' set up for MVC 001162 5120 800A 0000A 1388 LAE R02,MDBTMSGT get address of text 001166 5A20 445C 01870 1389 A R02,TOFF bump past prefix info 00116A D503 4462 2000 01876 00000 1390 CLC WTOID,0(R02) see if this message is my echo 001170 4780 3876 01186 1391 BE GOTTX don't redisplay my text echo 001174 1392 GOTT2 DS 0H 001174 4410 3878 01188 1393 EX R01,GOTTMVC move text to buffer 001178 5A10 3A9C 013AC 1394 A R01,=A(L'WTOID+1) calc length for wto 00117C 1821 1395 LR R02,R01 00117E 4110 4462 01876 1396 LA R01,WTOID 001182 45E0 3880 01190 1397 BAL R14,@PUTL#S Echo Message 001186 1398 GOTTX DS 0H 001186 0101 1399 PR 001188 1400 GOTTMVC DS 0H 001188 D200 4466 2000 0187A 00000 1401 MVC WTOTXT(0),0(R02) 1402 DROP R08 00118E 0101 1403 PR Program Return 1404 *-------------------------------------------------- 1405 * --- PUTLINE servise routine ( single line ) --------------------- 01190 1406 @PUTL#S EQU * 1407 *? STM R00,R01,SAVEIOPL save getmain length and address 001190 B240 00E0 1408 BAKR R14,0 save caller environment 001194 B219 0000 00000 1409 SAC 0 run in primary mode 1410 SYSSTATE ASCENV=P tell macros primary mode 1411+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 1412 * 001198 5860 5100 00100 1413 L R06,COM_CPPL Load CPPL Address 00000 1414 USING CPPL,R06 CPPL Base Reg. R06 1415 * 00119C 4220 3891 011A1 1416 STC R02,*+5 0011A0 D200 3934 1000 01244 00000 1417 MVC PUTL#S_(0),0(R01) copy message area 0011A6 4122 0004 00004 1418 LA R02,4(R02) length + 4 0011AA 4020 3930 01240 1419 STH R02,PUTL#SL store length 0011AE D703 390C 390C 0121C 0121C 1420 XC #ECB,#ECB clear ECB area 0011B4 D70F 3910 3910 01220 01220 1421 XC #IOPL(16),#IOPL clear IOPL area 0011BA 5890 6004 00004 1422 L R09,CPPLUPT 0011BE 58A0 600C 0000C 1423 L R10,CPPLECT 1424 PUTLINE PARM=PUTBLOK,UPT=(09),ECT=(10),ECB=#ECB, * OUTPUT=(PUTL#S,TERM,SINGLE,DATA),MF=(E,#IOPL) 1450 *? LM R00,R15,SAVEIOPL load reg. 1451 *? BR R14 return 00121A 0101 1452 PR return to caller 1453 DROP R06 1454 * --- ECB --------------------------------------------------------- 00121C 1455 #ECB DS F 1456 * --- IOPL -------------------------------------------------------- 001220 1457 #IOPL DS 4F 1458 * --- PUTLINE ( mapping macro ) ----------------------------------- 1459 PUTBLOK PUTLINE MF=L 1464 * --- PUTLINE ( single line put ) --------------------------------- 001240 1465 PUTL#S DS 0D 001240 1466 PUTL#SL DS H 1 PAGE 17 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0001242 0000 1467 DC H'0' 001244 1468 PUTL#S_ DS CL80 001294 1469 DS CL100 1470 *-------------------------------------------------- 1471 * 1472 LMGCRE MGCRE MF=L 1492 * DROP R04 001338 1493 LTORG 001338 7CC3D4C4C4D4E840 1494 =CL8'@CMDDMY' 001340 D4C3E2D6D7C5D940 1495 =CL8'MCSOPER' 001348 C1C3E3C9E5C1E3C5 1496 =CL8'ACTIVATE' 001350 D4C7C3D9C5404040 1497 =CL8'MGCRE' 001358 4040404040404040 1498 =CL8' ' 001360 D4C3E2D6D7D4E2C7 1499 =CL8'MCSOPMSG' 001368 C7C5E3D4E2C74040 1500 =CL8'GETMSG' 001370 00000584 1501 =A(REENTAL) 001374 C6F1E2C1 1502 =C'F1SA' 001378 00000BB8 1503 =F'3000' 00137C D4C3E2D6 1504 =CL4'MCSO' 001380 7FFFFFFF 1505 =FL4'2147483647' 001384 D4C4D940 1506 =CL4'MDR ' 001388 00000008 1507 =F'8' 00138C 00000000 1508 =F'0' 001390 00000001 1509 =A(MDBGOBJ) 001394 00000002 1510 =A(MDBCOBJ) 001398 00000004 1511 =A(MDBTOBJ) 00139C D4E5E240 1512 =C'MVS ' 0013A0 0000000A 1513 =A(MDBTMSGT-MDBTLEN) 0013A4 00000076 1514 =A(L'WTOTXT) 0013A8 00000001 1515 =F'1' 0013AC 00000005 1516 =A(L'WTOID+1) 0013B0 0064 1517 =H'100' 0013B2 001C 1518 =AL2(MDBPLNNO) 0013B4 64 1519 =FL1'100' 1520 * 0013B8 1521 WMAXEXT DS 0D 1522 SAVE (14,12),T,* 0013C6 183F 1527 LR R03,R15 013B8 1528 USING WMAXEXT,R03 1529 WTO '>>> WAIT TIME OUT EXIT ISSUE ...' 0013F2 5810 3050 01408 1537 L R01,WMAXFLG 0013F6 4111 0001 00001 1538 LA R01,1(R01) 0013FA 5010 3050 01408 1539 ST R01,WMAXFLG 1540 RETURN (14,12),RC=0 1544 * --- DYNAMIC AREA --- 001408 1545 WMAXFLG DS XL4 STIMER ID 00140C 1546 WAITMAX DS XL4 Time Out Wait Time 001410 1547 WMAXID DS XL4 STIMER ID 001414 1548 REENTA DS 0F 001414 1549 SAVEAREA DS 18F Registor Save Area 1550 * 0....+....1....+....2....+....3....+....4....+... 00145C 7CE3C37A407B7B7B 1551 ERRMSG01 DC CL80'@TC: ######## @@@@@@@@ ERROR RC:@@@@@@@@ RSN:@@@' 0014AC 7CE3C37A40D4C4C2 1552 MSG#0002 DC CL80'@TC: MDBG INFORMATION : @@@@.@@@-@@@@@@@@ ID:@@@@@' 1553 * 0....+....1....+....2....+....3....+....4....+... 0014FC 7CE3C37A407C7C7C 1554 MSG#0003 DC CL80'@TC: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@* 1 PAGE 18 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0001504 7C7C7C7C7C7C7C7C @@@@@@' 1555 * 0....+....1....+....2....+....3....+....4....+... 00154C 7CE3C37A40606040 1556 MSG#0004 DC CL80'@TC: -- Command Entry From Extended MCS Console --' 00159C 0050 1557 MSG#A005 DC AL2(L'MSG#0005) 00159E 7CE3C37A40D4C5E2 1558 MSG#0005 DC CL80'@TC: MESSAGE ID :' 1559 * 0....+....1....+....2....+....3....+....4....+....5* ....+....6....+....7....+....8 0015EE 7CE3C37A40D9D6E4 1560 MSG#0007 DC CL80'@TC: ROUTE CODE : @@@@@@@@ @@@@@@@@ @@@@@@@ @@@@@@ * 0015F6 E3C540C3D6C4C540 @ DESC : @@@@' 00163E 7CE3C37A40D4C1E7 1561 MSG#0014 DC CL80'@TC: MAXIMAM WAIT TIME : @@@@@@@@ (1/100SEC)' 00168E 7CE3C37A40404040 1562 MSG#0015 DC CL80'@TC:' 0016DE 1563 DS 100C 001742 7CE3C37A40C39694 1564 MSG#0016 DC CL80'@TC: Command Response Timeout ...' 001792 7CE3C37A40C59584 1565 MSG#0017 DC CL80'@TC: End of Message Wait Loop ...' 0017E4 1566 WK#F DS F Work Space ( 4 Byte ) 0017E8 1567 WK#H DS H Work Space ( 2 Byte ) 0017EA 1568 CMDFLG DS BL1'00000000' 1569 * 8 : Command Get 1570 * 4 : Reply Get 1571 * 2 : End of File 1572 * o 1573 * o 1574 * 0017EC 1575 DS 0F 0017EC 1576 TEXTAREA DS 0XL82 0017EC 0050 1577 DC H'80' 0017EE 1578 CMDBUF DS CL80 1579 * 00183E D4C3E2E2E3D6D940 1580 CONSNM DC CL08'MCSSTOR' MCS Console Name 001848 1581 CONSID DS A MCS Console ID 00184C 1582 MCART DS CL08 001854 1583 MCSECB DS F 001858 1584 MCSA DS F 00185C 1585 MCSCSAA DS F 001860 1586 WK_F DS F 001864 1587 RC DS F 001868 1588 RSN DS F 1589 * 00186C 00 1590 MDBFLGS DC FL1'0' 00001 1591 MDBFGO EQU X'01' processed general object 00002 1592 MDBFCO EQU X'02' processed control prog object 00186D 00 1593 CMDRSP DC FL1'0' 001870 1594 TOFF DS F offset to message in text object 001874 1595 WTOBUF DS FL2 length for dynamic messages 001876 6EE3C37A 1596 WTOID DC CL04'>TC:' messge id for echoed messages 00187A 1597 WTOTXT DS CL118 message text 0018F0 1598 MYOPER DS F console id from last modify command 0018F4 1599 DS 0F 0018F4 1600 MSGWAITF DS XL1 0018F8 1601 DS 0F 1602 * 0....+....1....+....2....+....3....+....4....+... 0018F8 1603 MSGPARM DS 0F 0018F8 0000 1604 MSGLEN DC AL2(0) 0018FA 4040404040404040 1605 MSG DC CL80' ' 00194A 1606 @MCSOP DS CL60 1 PAGE 19 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0001986 1607 WKCERC DS XL16 001996 1608 WKCDESC DS XL2 01998 1609 REENTAX EQU * 00584 1610 REENTAL EQU *-REENTA Re-Entrant Area Length 001998 1611 DS 0D 1 PAGE 20 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 1613 IEAVG132 , mdb prefix 1 PAGE 21 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 1716 IEAVM105 , mdb 1 PAGE 22 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 2161 IEAVG131 , console status area 1 PAGE 23 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 2301 IEZVG111 , operparm parameter area 1 PAGE 24 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0000000 2603 COM DSECT 2604 IEZCOM , COM area 1 PAGE 25 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0000000 2635 CIB DSECT 2636 IEZCIB , CIB and CIBX 2767 * --- CVT --------------------------------------------------------- 2768 *VT DSECT 2769 CVT DSECT=YES,LIST=YES 4038 * --- JESCT ------------------------------------------------------- 4039 IEFJESCT 4551 * --- DSAB -------------------------------------------------------- 4552 IHADSAB 4833 * --- UCB --------------------------------------------------------- 4834 * PRINT GEN 000000 4835 DSECT 4836 IEFUCBOB LIST=YES 6422 * --- CPPL ( command processor parameter list ) ------------------- 6423 IKJCPPL 00010 6434 L_CPPL EQU *-CPPL 6435 * --- PPL ( parse parameter list ) -------------------------------- 6436 IKJPPL 00020 6474 L_PPL EQU *-PPL 6475 * --- IKJIOPL ( input / output parameter list ) ------------------- 6476 IKJIOPL 00010 6489 L_IOPL EQU *-IOPL 00000 6490 R00 EQU 00 00001 6491 R01 EQU 01 00002 6492 R02 EQU 02 00003 6493 R03 EQU 03 00004 6494 R04 EQU 04 00005 6495 R05 EQU 05 00006 6496 R06 EQU 06 00007 6497 R07 EQU 07 00008 6498 R08 EQU 08 00009 6499 R09 EQU 09 0000A 6500 R10 EQU 10 0000B 6501 R11 EQU 11 0000C 6502 R12 EQU 12 0000D 6503 R13 EQU 13 0000E 6504 R14 EQU 14 0000F 6505 R15 EQU 15 6506 * --- 31 Bit Addressing Mode --- 6507 @HC AMODE ANY 6508 @HC RMODE 24 001998 6509 @HC CSECT 6510 SAVE (14,12),T,* 0019A4 0530 6515 BALR R03,0 019A6 6516 USING *,R03 Base Reg. R03 0019A6 50D0 3082 01A28 6517 ST R13,@HC#SA+4 Save A(OLD SaveArea) 0019AA 18CD 6518 LR R12,R13 0019AC 41D0 307E 01A24 6519 LA R13,@HC#SA 0019B0 50DC 0008 00008 6520 ST R13,8(R12) Save A(NEW SaveArea) 6521 * 6522 * LR R11,R01 6523 * 6524 * LA R01,SKIPXA 6525 * O R01,XABIT 6526 * BSM 0,R01 1 PAGE 26 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 6527 *KIPXA EQU * 6528 * --- Address --- 6529 * ST R01,WK#ADR 6530 * --- from characher --- 6531 * LA R02,0(R01) 6532 * ST R02,WK#FROM 6533 * --- to character --- 6534 * LA R02,4(R01) 6535 * ST R02,WK#TO 6536 * --- convert length --- 6537 * LA R02,8(R01) 6538 * ST R02,WK#LEN 6539 * --- from characher --- 0019B4 5871 0000 00000 6540 L R07,0(R01) 6541 * --- to character --- 0019B8 5881 0004 00004 6542 L R08,4(R01) 6543 * --- convert length --- 0019BC 5891 0008 00008 6544 L R09,8(R01) 6545 * 6546 * WTO '*** BINARY TO CHARACTER CONVERTER ***' 6547 * LR R01,R09 6548 * SLL R01,1 6549 * STC R01,*+5 6550 * MVC MES#STR2+8(0),0(R08) 6551 * MVC @HC#MES,MES#STR2 6552 * LA R01,@HC#WA 6553 * SVC 35 * WTO Message 6554 * 6555 * LA R07,ALLOCER 6556 * LA R08,ERRMSG02+30 6557 * LA R09,4 0019C0 45E0 302C 019D2 6558 BAL R14,@CO_HEX CALL CONVERT HEX-CHAR 6559 * DEBUG ** 6560 * 6561 * LA R07,WK#ADR 6562 * LA R08,MES#ADR+8 6563 * LA R09,4 6564 * BAL R14,@CO_HEX CALL CONVERT HEX-CHAR 6565 * MVC @HC#MES,MES#ADR 6566 * LA R01,@HC#WA 6567 * SVC 35 * WTO Message 6568 * 6569 * L R07,WK#FROM 6570 * L R07,0(R07) 6571 * LA R08,MES#STR+8 6572 * L R09,WK#LEN 6573 * L R09,0(R09) 6574 * CL R09,=F'35' 6575 * BNH @DBGSKP1 6576 * LA R09,35 6577 *DBGSKP1 EQU * 6578 * BAL R14,@CO_HEX CALL CONVERT HEX-CHAR 6579 * MVC @HC#MES,MES#STR 6580 * LA R01,@HC#WA 6581 * SVC 35 * WTO Message 1 PAGE 27 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 6582 * 6583 * L R07,WK#FROM 6584 * LA R08,MES#FROM+8 6585 * LA R09,4 6586 * BAL R14,@CO_HEX CALL CONVERT HEX-CHAR 6587 * MVC @HC#MES,MES#FROM 6588 * LA R01,@HC#WA 6589 * SVC 35 * WTO Message 6590 * 6591 * L R07,WK#TO 6592 * LA R08,MES#TO+8 6593 * LA R09,4 6594 * BAL R14,@CO_HEX CALL CONVERT HEX-CHAR 6595 * MVC @HC#MES,MES#TO 6596 * LA R01,@HC#WA 6597 * SVC 35 * WTO Message 6598 * 6599 * L R07,WK#LEN 6600 * LA R08,MES#LEN+8 6601 * LA R09,4 6602 * BAL R14,@CO_HEX CALL CONVERT HEX-CHAR 6603 * MVC @HC#MES,MES#LEN 6604 * LA R01,@HC#WA 6605 * SVC 35 * WTO Message 6606 * 6607 * DEBUG ** 0019C4 58D0 3082 01A28 6608 L R13,@HC#SA+4 6609 RETURN (14,12),RC=0 019D2 6613 @CO_HEX EQU * CONVERT HEX-CHARACTER 0019D2 41F0 0005 00005 6614 LA R15,5 019D6 6615 @CO_HC EQU * 0019D6 1299 6616 LTR R09,R09 0019D8 4780 307A 01A20 6617 BZ @CO_EXIT 0019DC 46F0 3046 019EC 6618 BCT R15,@CO_SKIP 6619 * 0019E0 9240 8000 00000 6620 MVI 0(R08),X'40' 0019E4 4188 0001 00001 6621 LA R08,1(R08) 0019E8 41F0 0004 00004 6622 LA R15,4 019EC 6623 @CO_SKIP EQU * 0019EC 1B11 6624 SR R01,R01 0019EE 4317 0000 00000 6625 IC R01,0(R07) 0019F2 8810 0004 00004 6626 SRL R01,4 0019F6 5A10 30D6 01A7C 6627 A R01,A_TR 0019FA BF22 1000 00000 6628 ICM R02,B'0010',0(R01) 0019FE 4317 0000 00000 6629 IC R01,0(R07) 001A02 5410 30DA 01A80 6630 N R01,=F'15' 001A06 5A10 30D6 01A7C 6631 A R01,A_TR 001A0A BF21 1000 00000 6632 ICM R02,B'0001',0(R01) 001A0E BE23 8000 00000 6633 STCM R02,B'0011',0(R08) 001A12 4177 0001 00001 6634 LA R07,1(R07) 001A16 4188 0002 00002 6635 LA R08,2(R08) 001A1A 0690 6636 BCTR R09,0 001A1C 47F0 3030 019D6 6637 B @CO_HC 01A20 6638 @CO_EXIT EQU * 6639 * LA R01,SKIP370 1 PAGE 28 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 6640 * BSM 0,R01 6641 *KIP370 EQU * 001A20 07FE 6642 BR R14 6643 * 001A24 6644 @HC#SA DS 18F WORK SAVEAREA 001A6C F0F1F2F3F4F5F6F7 6645 TR DC C'0123456789ABCDEF' CHAR TRUNC TABLE 001A7C 00001A6C 6646 A_TR DC A(TR) 6647 * --- WTO --- 6648 *HC#WA DS 0F 6649 * DC AL2(@HC#WL) 6650 * DC B'0000000000000000' 6651 *HC#MES DS CL80 6652 *HC#WL EQU *-@HC#WA 6653 *ABIT DC 0F'0',X'80000000' 6654 *ES#FROM DC CL80'HC FROM:' 6655 *ES#TO DC CL80'HC TO :' 6656 *ES#LEN DC CL80'HC LEN :' 6657 *ES#STR DC CL80'HC AFT :' 6658 *ES#STR2 DC CL80'HC BFR :' 6659 *ES#ADR DC CL80'HC ADR :' 6660 *K#FROM DS F 6661 *K#TO DS F 6662 *K#LEN DS F 6663 *K#ADR DS F 001A80 6664 LTORG 001A80 0000000F 6665 =F'15' 6666 DUMMYCAL AMODE 31 6667 DUMMYCAL RMODE 24 001A88 6668 DUMMYCAL CSECT 6669 SYSSTATE ASCENV=P 6670+* THE VALUE OF SYSSTATE IS NOW SET TO ASCENV=P 01-SYSST 6671 SAVE (14,12),T,* 001A9A 0530 6676 BALR R03,0 01A9C 6677 USING *,R03 BASE REG. R03 001A9C 50D0 3258 01CF4 6678 ST R13,SA+4 SAVE A(OLD SAVEAREA) 001AA0 18CD 6679 LR R12,R13 001AA2 41D0 3254 01CF0 6680 LA R13,SA 001AA6 50DC 0008 00008 6681 ST R13,8(R12) SAVE A(NEW SAVEAREA) 001AAA 1861 6682 LR R06,R01 6683 TPUT M4,L'M4 6694 * 00000 6695 USING MCSCOMM,R04 001AC4 4140 32E4 01D80 6696 LA R04,MCSENT2 001AC8 4150 32E4 01D80 6697 LA R05,MCSENT2 6698 * 001ACC 5060 5100 00100 6699 ST R06,COM_CPPL 6700 * ---------------------------------------------------------------- 001AD0 5860 5100 00100 6701 L R06,COM_CPPL Load CPPL Address 00000 6702 USING CPPL,R06 CPPL Base Reg. R06 6703 * 001AD4 D24F 3598 34F4 02034 01F90 6704 MVC DPUT#S_(80),M3 copy message area 001ADA D703 364C 364C 020E8 020E8 6705 XC #DECB,#DECB clear ECB area 001AE0 D70F 3650 3650 020EC 020EC 6706 XC #DIOPL(16),#DIOPL clear IOPL area 001AE6 5890 6004 00004 6707 L R09,CPPLUPT 001AEA 58A0 600C 0000C 6708 L R10,CPPLECT 1 PAGE 29 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0 6709 PUTLINE PARM=DPUTBLOK,UPT=(09),ECT=(10),ECB=#DECB, * OUTPUT=(DPUT#S,TERM,SINGLE,DATA),MF=(E,#DIOPL) 6735 TPUT M4,L'M4 6746 * ---------------------------------------------------------------- 001B60 D701 5058 5058 00058 00058 6747 XC COM_WTME,COM_WTME 001B66 D701 505A 505A 0005A 0005A 6748 XC COM_WLEN,COM_WLEN 001B6C D701 50AC 50AC 000AC 000AC 6749 XC COM_TLEN,COM_TLEN 6750 * 001B72 D207 5000 366C 00000 02108 6751 MVC COM_CONN(8),=CL8'OPERCMD' 001B78 D24F 5008 3674 00008 02110 6752 MVC COM_CMD(80),=CL80'D A,L' 6753 * MVC COM_WAIT(8),=CL8'IEE114I' 6754 * LA R01,8 6755 * STH R01,COM_WLEN 6756 CALL CMDE,((R04)) 6769 * 001B9E 58F0 5114 00114 6770 L R15,COM_RC 001BA2 12FF 6771 LTR R15,R15 001BA4 4780 317C 01C18 6772 BZ @QUIT1 6773 * 001BA8 D24F 3404 3454 01EA0 01EF0 6774 MVC M,M1 001BAE D207 3419 5104 01EB5 00104 6775 MVC M+21(8),COM_MAC 001BB4 D207 3429 510C 01EC5 0010C 6776 MVC M+37(8),COM_ACT 001BBA 4120 5114 00114 6777 LA R02,COM_RC 6778 CALL @HC,((R02),M+49,4) 001BE6 4120 5118 00118 6793 LA R02,COM_RSN 6794 CALL @HC,((R02),M+62,4) 001C12 4110 3400 01E9C 6809 LA R01,WTOA 001C16 0A23 6810 SVC 35 * WTO Message 6811 * 01C18 6812 @QUIT1 EQU * 001C18 58D0 3258 01CF4 6813 L R13,SA+4 RETURN 6814 RETURN (14,12),RC=0 01C26 6818 SHOWREGS EQU * 001C26 900F 329C 01D38 6819 STM R00,R15,SA#REGS 001C2A D24F 3404 34A4 01EA0 01F40 6820 MVC M,M2 6821 CALL @HC,(SA#REGS,M+15,16) 001C52 4110 3400 01E9C 6835 LA R01,WTOA 001C56 0A23 6836 SVC 35 * WTO Message 001C58 D24F 3404 34A4 01EA0 01F40 6837 MVC M,M2 6838 CALL @HC,(SA#REGS+16,M+15,16) 001C82 4110 3400 01E9C 6852 LA R01,WTOA 001C86 0A23 6853 SVC 35 * WTO Message 001C88 D24F 3404 34A4 01EA0 01F40 6854 MVC M,M2 6855 CALL @HC,(SA#REGS+32,M+15,16) 001CB2 4110 3400 01E9C 6869 LA R01,WTOA 001CB6 0A23 6870 SVC 35 * WTO Message 001CB8 D24F 3404 34A4 01EA0 01F40 6871 MVC M,M2 6872 CALL @HC,(SA#REGS+48,M+15,16) 001CE2 4110 3400 01E9C 6886 LA R01,WTOA 001CE6 0A23 6887 SVC 35 * WTO Message 001CE8 980F 329C 01D38 6888 LM R00,R15,SA#REGS 001CEC 07FE 6889 BR R14 6890 * 001CF0 6891 DS 0F 001CF0 6892 SA DS 18F SAVEAREA 1 PAGE 30 - LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 02 18.12 06/19/98 0001D38 6893 SA#REGS DS 18F SAVEAREA 001D80 6894 MCSENT2 DS (MCSCOMML)X 6895 * --- WTO --- 001E9C 6896 WTOA DS 0F 001E9C 0054 6897 DC AL2(WTOL) 001E9E 0000 6898 DC B'0000000000000000' 6899 * 0....+....1....+....2....+....3....+....4....+... 001EA0 6900 M DS CL80 00054 6901 WTOL EQU *-WTOA 001EF0 E2E3D6D960D4C7D9 6902 M1 DC CL80'STOR-MGR ERROR MACRO:@@@@@@@@ ACTION:@@@@@@@@ RC:@@* 001EF8 40C5D9D9D6D940D4 @@@@@@ RSN:@@@@@@@@' 001F40 E2E3D6D960D4C7D9 6903 M2 DC CL80'STOR-MGR REGS :' 001F90 7CC3D4C440C4E4D4 6904 M3 DC CL80'@CMD DUMMY CALL - STARTUP MESSAGE ---' 001FE0 6E6E6E40E3C5E2E3 6905 M4 DC CL80'>>> TEST <<<' 002030 6906 DPUT#S DS 0D 002030 0050 6907 DPUT#SL DC H'80' 002032 0000 6908 DC H'0' 002034 6909 DPUT#S_ DS CL80 002084 6910 DS CL100 6911 * --- ECB --------------------------------------------------------- 0020E8 6912 #DECB DS F 6913 * --- IOPL -------------------------------------------------------- 0020EC 6914 #DIOPL DS 4F 6915 * --- PUTLINE ( mapping macro ) ----------------------------------- 6916 DPUTBLOK PUTLINE MF=L 002108 6921 LTORG 002108 D6D7C5D9C3D4C440 6922 =CL8'OPERCMD' 002110 C440C16BD3404040 6923 =CL80'D A,L' 000000 6924 MCSCOMM DSECT 000000 6925 COM_CONN DS CL8'STORMGR' 000008 6926 COM_CMD DS CL80'D M=STOR' 000058 6927 COM_WTME DS H'10' 00005A 6928 COM_WLEN DS H'8' 00005C 6929 COM_WAIT DS CL80'IEE712I' 0000AC 6930 COM_TLEN DS H'8' 0000AE 6931 COM_TOUT DS CL80'STORMGR TIME OUT' 000100 6932 COM_CPPL DS F 6933 * Result of SOTRMCS 000104 6934 COM_MAC DS CL8 00010C 6935 COM_ACT DS CL8 000114 6936 COM_RC DS F 000118 6937 COM_RSN DS F 0011C 6938 MCSCOMML EQU *-MCSCOMM 6939 * END DUMMYCAL 000060 6940 END @CMD 1 RELOCATION DICTIONARY PAGE 31 - POS.ID REL.ID FLAGS ADDRESS ASM H V 02 18.12 06/19/98 0 0002 0001 0C 000424 0002 0002 0C 0001CC 0002 0003 1C 000110 0002 0004 0C 00028C 0005 0005 0C 000A0C 0005 0005 0C 000A10 0005 0005 0C 000A38 0005 0005 0C 000D38 0005 0005 0C 000D3C 0005 0005 0C 000D98 0005 0005 0C 000D9C 0005 0005 0C 001208 0005 0006 1C 0009C0 0005 0006 1C 000ED8 0005 0006 1C 000F0C 0005 0006 1C 001000 0005 0006 1C 001074 0005 0006 1C 0010A8 0007 0007 0C 001A7C 0008 0003 1C 001B84 0008 0006 1C 001BC4 0008 0006 1C 001BF0 0008 0006 1C 001C34 0008 0006 1C 001C64 0008 0006 1C 001C94 0008 0006 1C 001CC4 0008 0008 0C 001B34 0008 0008 0C 001BD8 0008 0008 0C 001C04 0008 0008 0C 001C40 0008 0008 0C 001C44 0008 0008 0C 001C70 0008 0008 0C 001C74 0008 0008 0C 001CA0 0008 0008 0C 001CA4 0008 0008 0C 001CD0 0008 0008 0C 001CD4 1 CROSS REFERENCE PAGE 32 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0#DECB 00004 0020E8 6912 6705 6705 6713 #DIOPL 00004 0020EC 6914 6706 6706 6710 #ECB 00004 00121C 1455 1420 1420 1428 #ECB2 00004 000420 0425 0150 0150 0151 #IOPL 00004 001220 1457 1421 1421 1425 #Z046A 00008 000AB0 0650 0679 0682 #Z046A_ACTIVATE 00001 00000001 0654 #Z046A_DEACTIVATE 00001 00000002 0655 #Z046A_FIFO 00001 00000080 0675 #Z046A_KEYUSED_MIGID 00001 00000040 0659 #Z046A_NONE 00001 00000020 0677 #Z046A_RELEASE 00001 00000003 0656 #Z046A_SEARCH 00001 00000040 0676 #Z046A_XABTERM_YES 00001 00000080 0658 #Z046A_XACRO 00004 000AB0 0651 #Z046A_XALERTECB 00004 000AE4 0670 #Z046A_XALERTPCT 00001 000AE9 0672 #Z046A_XCONSID 00004 000ACC 0664 #Z046A_XFLAG 00001 000AB6 0657 #Z046A_XMCSCSA 00004 000AD8 0667 #Z046A_XMCSCSAA 00004 000AD4 0666 #Z046A_XMIGID 00001 000AE8 0671 #Z046A_XMSGDLVRY 00001 000AEB 0674 #Z046A_XMSGECB 00004 000AE0 0669 #Z046A_XNAME 00008 000ABC 0662 #Z046A_XOPERPARM 00004 000AB8 0661 #Z046A_XQLIMIT 00004 000AD0 0665 #Z046A_XQRESUME 00001 000AEA 0673 #Z046A_XREQUEST 00001 000AB5 0653 #Z046A_XRSV0001 00001 000AB7 0660 #Z046A_XRSV0002 1 CROSS REFERENCE PAGE 33 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0 00004 000ADC 0668 #Z046A_XRSV0003 00016 000AEC 0678 #Z046A_XTERMNAME 00008 000AC4 0663 #Z046A_XVERSION 00001 000AB4 0652 #Z046AL 00001 0000004C 0679 #Z046AS 00002 000AFC 0681 0648 #Z061A 00008 000C88 0836 0853 0856 #Z061A_GETMSG 00001 00000001 0840 #Z061A_KEYUSED_CART 00001 00000010 0846 #Z061A_KEYUSED_CMDRESP 00001 00000020 0845 #Z061A_KEYUSED_MASK 00001 00000008 0847 #Z061A_RESUME 00001 00000002 0841 #Z061A_XACRO 00004 000C88 0837 #Z061A_XCART 00008 000C90 0849 #Z061A_XCMDRESP 00001 000C8E 0842 #Z061A_XCMDRESP_NO 00001 00000040 0844 #Z061A_XCMDRESP_YES 00001 00000080 0843 #Z061A_XCONSID 00004 000CA0 0851 #Z061A_XMASK 00008 000C98 0850 #Z061A_XREQUEST 00001 000C8D 0839 #Z061A_XRSV0001 00001 000C8F 0848 #Z061A_XRSV0002 00004 000CA4 0852 #Z061A_XVERSION 00001 000C8C 0838 #Z061AL 00001 00000020 0853 #Z061AS 00002 000CA8 0855 0834 #Z073A 00008 000E30 1006 1035 1038 #Z073A_ACTIVATE 00001 00000001 1010 #Z073A_DEACTIVATE 00001 00000002 1011 #Z073A_FIFO 00001 00000080 1031 #Z073A_KEYUSED_MIGID 00001 00000040 1015 #Z073A_NONE 00001 00000020 1033 1 CROSS REFERENCE PAGE 34 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0#Z073A_RELEASE 00001 00000003 1012 #Z073A_SEARCH 00001 00000040 1032 #Z073A_XABTERM_YES 00001 00000080 1014 #Z073A_XACRO 00004 000E30 1007 #Z073A_XALERTECB 00004 000E64 1026 #Z073A_XALERTPCT 00001 000E69 1028 #Z073A_XCONSID 00004 000E4C 1020 #Z073A_XFLAG 00001 000E36 1013 #Z073A_XMCSCSA 00004 000E58 1023 #Z073A_XMCSCSAA 00004 000E54 1022 #Z073A_XMIGID 00001 000E68 1027 #Z073A_XMSGDLVRY 00001 000E6B 1030 #Z073A_XMSGECB 00004 000E60 1025 #Z073A_XNAME 00008 000E3C 1018 #Z073A_XOPERPARM 00004 000E38 1017 #Z073A_XQLIMIT 00004 000E50 1021 #Z073A_XQRESUME 00001 000E6A 1029 #Z073A_XREQUEST 00001 000E35 1009 #Z073A_XRSV0001 00001 000E37 1016 #Z073A_XRSV0002 00004 000E5C 1024 #Z073A_XRSV0003 00016 000E6C 1034 #Z073A_XTERMNAME 00008 000E44 1019 #Z073A_XVERSION 00001 000E34 1008 #Z073AL 00001 0000004C 1035 #Z073AS 00002 000E7C 1037 1004 @BYE 00001 0000012A 0099 @CMD 00001 00000060 0009 0010 0011 0025 0279 0301 0312 0322 0332 0342 0347 0369 0375 0395 0405 6940 @CMDL 00004 0003B8 0414 0195 @CMDRES 00080 000368 0413 @CO_EXIT 00001 00001A20 6638 6617 @CO_HC 00001 000019D6 6615 6637 @CO_HEX 00001 000019D2 6613 6558 1 CROSS REFERENCE PAGE 35 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0@CO_SKIP 00001 000019EC 6623 6618 @HC 00001 00001998 6509 6507 6508 @HC#SA 00004 001A24 6644 6517 6519 6608 @MCSACTQ 00001 00000BC2 0737 0724 0727 @MCSOP 00060 00194A 1606 0620 0620 0622 0687 @PPL 00001 00000154 0123 0073 @PPL_ERR 00001 00000242 0227 0184 @PPL_SP1 00001 0000021E 0205 0200 @PUTL#S 00001 00001190 1406 0514 0519 0555 0927 0932 0973 1113 1242 1321 1367 1397 @QUIT1 00001 00001C18 6812 6772 @TERM 00001 0000027E 0259 @VER_A 00004 000424 0426 @VERSION 00006 000029 0005 0426 @WAITMES 00080 0003BC 0415 0203 @WAITML 00002 00040C 0416 0204 A_TR 00004 001A7C 6646 6627 6631 AMGE0046 00002 000B66 0704 AMGE0073 00002 000EAE 1049 ANS 00004 00041C 0423 0148 0186 B#WK1 00004 000544 0429 B#WK2 00004 000548 0430 C#WK1 00012 000560 0433 C#WK2 00012 00056C 0434 CIB 00001 00000000 2635 CIBASID 00002 00000A 2719 CIBCONID 00001 00000C 2721 CIBDATA 00008 000010 2728 CIBDATLN 00002 00000E 2727 CIBLEN 00001 000005 2716 CIBMODFY 00001 00000044 2713 CIBMOUNT 00001 0000000C 2715 CIBNEXT 00004 000000 2709 CIBRSV1 00001 00000D 2722 CIBSTART 00001 00000004 2711 CIBSTCOM 00001 00000008 2712 CIBSTOP 00001 00000040 2714 CIBS313 00001 00000001 2723 CIBS410 00001 00000002 2724 CIBTJID 00002 00000A 2720 CIBVERB 00001 000004 2710 CIBVRSN 00001 00000003 2726 2722 CIBX 00001 00000000 2739 2764 CIBXAUTA 00001 000004 2743 CIBXAUTB 00001 000005 2748 CIBXAUTH 00002 000004 2742 CIBXAUT1 00001 00000080 2744 CIBXAUT2 00001 00000040 2745 CIBXAUT3 00001 00000020 2746 CIBXCART 00008 000010 2758 CIBXCNID 00004 000018 2759 CIBXCNNM 00008 000008 2757 CIBXDISA 00001 00000080 2750 CIBXDISC 00001 00000020 2752 CIBXDISE 00001 00000008 2754 CIBXDISM 00001 00000040 2751 1 CROSS REFERENCE PAGE 36 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CIBXDISP 00001 000006 2749 CIBXDISR 00001 00000010 2753 CIBXEND 00001 00000030 2763 2764 CIBXLEN 00001 00000030 2764 CIBXOCID 00004 000020 2761 CIBXOFF 00002 000006 2717 CIBXPTRC 00004 00001C 2760 CIBXRSV 00001 000007 2756 CIBXRSVD 00012 000024 2762 CIBXUTOK 00004 000000 2741 CIB15497 00001 00000003 2725 2726 CMDBUF 00080 0017EE 1578 0747 CMDE 00001 00000910 0467 0465 0466 0477 CMDENTR 00001 00000BCE 0745 CMDFLG 00001 0017EA 1568 CMDISSUE 00001 00000BC4 0741 0576 CMDISU#Q 00001 00000DF4 0967 0899 CMDISU#X 00001 00000E04 0974 0790 0928 0933 0966 CMDRSP 00001 00186D 1593 0893 1330 CMDWAIT 00001 00000C4E 0791 0772 0951 COM 00001 00000000 2603 COM_ACT 00008 00010C 6935 0730 0784 0960 6776 COM_CMD 00080 000008 6926 0068 0069 0069 0069 0194 0516 0747 6752 COM_CONN 00008 000000 6925 0082 0626 6751 COM_CPPL 00004 000100 6932 0083 1413 6699 6701 COM_MAC 00008 000104 6934 0729 0783 0959 6775 COM_RC 00004 000114 6936 0520 0520 0731 0782 0961 6770 6777 COM_RSN 00004 000118 6937 0521 0521 0732 0962 6793 COM_TLEN 00002 0000AC 6930 0067 0067 0920 6749 6749 COM_TOUT 00080 0000AE 6931 0924 COM_WAIT 00080 00005C 6929 0070 0071 0071 0071 1360 1364 COM_WLEN 00002 00005A 6928 0066 0066 0084 0084 1356 6748 6748 COM_WTME 00002 000058 6927 0065 0065 0529 6747 6747 COMCIBPT 00004 000004 2627 COMECBPT 00004 000000 2626 COMLIST 00001 00000000 2624 COMTOKEN 00004 000008 2629 COMTOKHR 00001 00000080 2631 CONSID 00004 001848 1581 0701 0766 0862 1043 CONSNM 00008 00183E 1580 0626 0627 0689 0690 CPPL 00001 00000000 6428 0056 1414 6434 6702 CPPL_PTR 00004 000410 0418 0055 CPPLCBUF 00004 000000 6429 0147 CPPLECT 00004 00000C 6432 0146 1423 6708 CPPLPSCB 00004 000008 6431 CPPLUPT 00004 000004 6430 0145 1422 6707 CVT 00001 00000000 2958 CVTABEND 00004 0000C8 3148 CVTADV 00004 0003B8 3685 CVTAIDVT 00004 0002EC 3567 CVTAMFF 00004 000108 3204 CVTAPF 00004 000144 3259 CVTAPFA 00003 000145 3261 CVTAPFT 00004 000278 3507 CVTAPG 00001 00018F 3361 1 CROSS REFERENCE PAGE 37 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTAPR 00001 00000040 3104 CVTAPTHR 00001 00000008 3127 CVTAQAVB 00003 0000F1 3193 CVTAQAVT 00004 0000F0 3184 CVTAQTOP 00004 000224 3461 CVTASCBH 00004 000234 3469 CVTASCBL 00004 000238 3473 CVTASCII 00001 00000002 3113 CVTASCRF 00004 0001B4 3391 CVTASCRL 00004 0001B8 3393 CVTASMVT 00004 0002C0 3540 CVTASVT 00004 00022C 3465 CVTATACT 00001 00000080 4026 CVTATCVT 00004 000040 4025 CVTAUSCB 00004 00000C 2983 CVTAUTHL 00004 0001E4 3430 CVTAVIN 00001 00000080 4004 CVTAVVT 00004 000024 4001 CVTBAH 00001 00000020 3979 CVTBCLMT 00004 000048 4028 CVTBLDCP 00004 0001E8 3433 CVTBLDLE 00004 000004 3926 CVTBLDLS 00004 000000 3924 CVTBRET 00002 000052 3025 3516 3595 CVTBSM2 00002 0001DE 3427 CVTBTERM 00004 000034 3008 CVTBUF 00004 000010 2985 CVTCADS 00001 00000004 3880 CVTCALL 00002 00044A 3766 CVTCBBR 00004 0003CC 3697 CVTCBSP 00004 000100 3199 CVTCCH 00001 00000080 3102 CVTCCVT 00004 000028 4006 CVTCDEQ 00004 0003D8 3703 CVTCGK 00004 0003E4 3711 CVTCKRAS 00004 0004C0 3845 CVTCMPSC 00001 00000080 3323 CVTCMPSH 00001 00000040 3328 CVTCPBDB 00004 000480 3802 CVTCPDLB 00004 000484 3804 CVTCPFRE 00004 000470 3794 CVTCPGTC 00004 00046C 3792 CVTCPGUB 00004 000464 3786 CVTCPGUP 00004 000468 3789 CVTCPGUS 00004 000494 3812 CVTCRAS 00004 0001FC 3439 CVTCRMN 00004 0001F8 3437 CVTCRPTL 00001 00000002 3881 CVTCSD 00004 000294 3520 CVTCSDRL 00004 00039C 3669 CVTCSOAL 00004 0004CC 3852 CVTCSOCR 00004 0004D4 3855 CVTCSOCS 00004 0004D8 3857 CVTCSOMF 00004 0004C8 3850 CVTCSPIE 00004 0001CC 3404 1 CROSS REFERENCE PAGE 38 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTCSRIM 00001 00000080 3837 CVTCSRT 00004 000220 3457 CVTCSTR 00001 00000004 3315 CVTCTIMS 00001 00000040 3119 CVTCTLFG 00001 00018E 3351 CVTCUCB 00004 000064 3033 CVTCUSE 00001 00000020 3310 CVTCVAF 00004 00000C 3987 CVTCVT 00004 000060 3032 CVTDAIR 00004 0002DC 3559 CVTDAIRX 00004 000090 3074 CVTDARCM 00004 00036C 3640 CVTDATE 00004 000038 3010 CVTDCB 00001 000074 3040 CVTDCBA 00003 000075 3059 CVTDCQA 00004 0004E0 3861 CVTDDR 00001 00000020 3106 CVTDEBVR 00004 000008 3985 CVTDELCP 00004 0001F4 3436 CVTDFA 00004 0004C0 3846 CVTDICOM 00001 00000080 3289 CVTDIRST 00001 000168 3288 CVTDMSR 00004 000110 3207 CVTDMSRA 00003 000111 3222 CVTDMSRF 00001 000110 3208 CVTDOFFE 00004 00048C 3808 CVTDOFFS 00004 000488 3806 CVTDPUR 00004 00043C 3759 CVTDQIQE 00004 000298 3522 CVTDSSAC 00001 0001D6 3417 CVTDSTAT 00001 00000010 3352 CVTDYAPF 00001 00000080 3886 CVTDYNEX 00001 00000020 3889 CVTECVT 00004 00008C 3073 CVTEFF02 00004 0003D0 3699 CVTEFLPE 00004 000044 3952 CVTEFLPS 00004 000040 3950 CVTEHCIR 00004 0002E4 3564 CVTEHDEF 00004 0002E0 3562 CVTEMLPE 00004 00004C 3956 CVTEMLPS 00004 000048 3954 CVTENCLV 00001 00000010 3891 CVTENFCT 00004 0000C0 3142 CVTEORM 00004 000138 3252 CVTEPLPE 00004 00003C 3948 CVTEPLPS 00004 000038 3946 CVTERWNE 00004 000034 3944 CVTERWNS 00004 000030 3942 CVTESA 00001 00000080 3871 CVTEVENT 00004 0003C4 3690 CVTEXCL 00004 00032C 3606 CVTEXIT 00002 000050 3023 CVTEXPRO 00004 000260 3497 CVTEXP1 00004 000398 3667 CVTEXSNL 00001 00018C 3346 1 CROSS REFERENCE PAGE 39 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTEXSNR 00004 000188 3344 CVTEXT1 00004 0000FC 3197 CVTEXT2 00004 000148 3263 CVTEXT2A 00003 000149 3266 CVTE51GN 00001 00000080 3380 CVTE51LN 00001 00000040 3384 CVTFACHN 00004 000000 3963 CVTFBOSV 00004 000084 3070 CVTFBYT1 00001 000034 4012 CVTFETCH 00004 0002D0 3553 CVTFLAGS 00004 000178 3304 CVTFLAG1 00001 000178 3305 CVTFLAG2 00001 000179 3322 CVTFLAG3 00001 00017A 3339 CVTFLAG4 00001 00017B 3340 CVTFLGBT 00001 000005 3974 CVTFLPAE 00004 000014 3931 CVTFLPAS 00004 000010 3930 CVTFP 00001 00000004 3133 CVTFQCB 00004 000280 3511 CVTFRAS 00004 000204 3443 CVTFRECL 00004 0001F0 3435 CVTFUNC 00004 0004A8 3828 CVTGDA 00004 000230 3467 CVTGETCL 00004 0001EC 3434 CVTGETL 00004 00015C 3281 CVTGLMN 00004 0002A8 3527 CVTGMBR 00004 000350 3623 CVTGRRGN 00004 000498 3816 CVTGRSST 00001 0001AC 3379 CVTGSDA 00004 0003B4 3681 CVTGSDAB 00001 00000080 3683 CVTGSMQ 00004 000264 3499 CVTGTF 00004 0000EC 3164 CVTGTFA 00003 0000ED 3182 CVTGTFAV 00001 00000080 3167 CVTGTFR8 00004 000384 3652 CVTGTFST 00001 0000EC 3166 CVTGTRCE 00001 00000002 3357 CVTGVRGN 00004 00049C 3818 CVTGVT 00004 0001B0 3389 CVTGXL 00004 000118 3228 CVTHID 00004 00042C 3752 CVTHIPER 00001 00000010 3876 CVTHJES 00004 00014C 3267 CVTHJESA 00003 00014D 3269 CVTHSM 00004 0003DC 3706 CVTH3310 00001 00000080 3870 CVTH4410 00001 00000008 3877 CVTH4420 00001 00000040 3873 CVTH4430 00001 00000080 3885 CVTH5510 00001 00000020 3888 CVTH5520 00001 00000010 3890 CVTH6601 00001 00000002 3893 CVTICB 00004 000030 4010 1 CROSS REFERENCE PAGE 40 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTICHPT 00004 0004D0 3853 CVTICPID 00002 00005E 3031 CVTIDEVN 00004 00041C 3742 CVTIHASU 00004 000414 3740 CVTIHVP 00004 000124 3238 CVTIOBP 00004 0002C4 3542 CVTIOCID 00002 000006 3982 CVTIONLV 00001 0004A0 3820 CVTIPCDS 00004 0002F0 3569 CVTIPCRI 00004 0002F4 3571 CVTIPCRP 00004 0002F8 3573 CVTIRECM 00004 000368 3638 CVTISNBR 00004 000334 3610 CVTIXAVL 00004 00007C 3064 CVTJESCT 00004 000128 3242 CVTJTERM 00004 0003FC 3725 CVTJ3311 00001 00000010 3875 CVTJ3313 00001 00000020 3874 CVTJ4422 00001 00000001 3883 CVTJ5522 00001 00000008 3892 CVTJ6602 00001 00000001 3897 CVTKPAR 00001 00000001 3319 CVTLCCAT 00004 000300 3577 CVTLDEV 00001 00000040 3190 CVTLDTO 00008 000038 4022 CVTLDTOL 00004 000038 4023 CVTLDTOR 00004 00003C 4024 CVTLFRM 00004 00034C 3621 CVTLINK 00004 000008 2980 CVTLKR 00001 00000008 3878 CVTLKRM 00004 000140 3257 CVTLKRMA 00004 000290 3518 CVTLLCB 00004 000024 3000 CVTLLTA 00004 0004DC 3859 CVTLLTRM 00004 000028 3001 CVTLNKSC 00002 0000D6 3153 CVTLPDIA 00004 000168 3286 CVTLPDIR 00003 000169 3290 CVTLPDSR 00004 000160 3283 CVTLQCB 00004 000284 3513 CVTLSCH 00004 0003D4 3701 CVTLSMQ 00004 000268 3501 CVTLSO 00008 000050 4031 CVTLSOH 00004 000050 4032 CVTLSOL 00004 000054 4033 CVTMAP 00001 00000000 2963 0163 CVTMAXMP 00002 0001DC 3424 CVTMCHPR 00004 000134 3250 CVTMDLDS 00004 0000D0 3151 CVTMFACT 00001 00000080 3599 CVTMFCTL 00004 00031C 3593 CVTMFRTR 00004 000320 3595 CVTMLPAE 00004 00000C 3929 CVTMLPAS 00004 000008 3928 CVTMMVT 00004 000010 3990 1 CROSS REFERENCE PAGE 41 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTMSER 00004 000094 3077 CVTMSFCB 00004 000428 3749 CVTMSFRM 00004 00033C 3614 CVTMSLT 00004 00003C 3011 CVTMVPG 00001 00000010 3311 CVTMVSE 00001 00000080 3044 CVTMVS2 00001 00000001 3056 CVTMZ00 00004 0000A4 3085 CVTNCVP 00004 000014 3992 CVTNIP 00001 00000010 3111 CVTNLOG 00001 00000010 3124 CVTNOMP 00001 00000004 3355 CVTNPE 00001 00000080 3975 CVTNUCB 00004 000080 3069 CVTNUCLS 00001 000004 3972 CVTNUCLU 00004 0004EC 3866 CVTNUCMP 00004 0004B0 3834 CVTNVT0 00004 0004C4 3849 CVTNWTCM 00001 00000020 3192 CVTOLTEP 00004 00001C 3998 CVTOLT0A 00004 0001C4 3399 CVTOPCTP 00004 00025C 3495 CVTOPTA 00001 0000B6 3101 CVTOPTB 00001 0000B7 3117 CVTOPTE 00004 000218 3452 CVTOSEXT 00001 00000008 3051 CVTOSLVA 00001 0004FA 3907 CVTOSLVB 00001 0004FB 3908 CVTOSLVC 00001 0004FC 3909 CVTOSLVD 00001 0004FD 3910 CVTOSLVE 00001 0004FE 3911 CVTOSLVF 00001 0004FF 3912 CVTOSLVL 00016 0004F0 3868 CVTOSLV0 00001 0004F0 3869 CVTOSLV1 00001 0004F1 3884 CVTOSLV2 00001 0004F2 3899 CVTOSLV3 00001 0004F3 3900 CVTOSLV4 00001 0004F4 3901 CVTOSLV5 00001 0004F5 3902 CVTOSLV6 00001 0004F6 3903 CVTOSLV7 00001 0004F7 3904 CVTOSLV8 00001 0004F8 3905 CVTOSLV9 00001 0004F9 3906 CVTOS390 00001 00000002 3894 CVTOVER 00001 00000008 3313 CVTPARMC 00001 00000001 3898 CVTPARRL 00004 000274 3505 CVTPARS 00004 00020C 3447 0165 0168 CVTPATCH 00004 0000DC 3156 CVTPCCAT 00004 0002FC 3575 CVTPCNVT 00004 00001C 2992 CVTPERFM 00004 0002D8 3557 CVTPGSER 00004 00045C 3780 CVTPLPAE 00004 00001C 3933 CVTPLPAS 00004 000018 3932 1 CROSS REFERENCE PAGE 42 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTPPGMX 00004 0001A8 3378 CVTPRDED 00001 00000002 3895 CVTPRLTV 00004 000020 2996 CVTPROT 00001 00000080 3118 CVTPSXM 00004 000430 3753 CVTPTGT 00004 0001D0 3410 CVTPTR 00001 00000010 2954 0162 CVTPTRV 00004 000120 3235 CVTPTRV3 00004 00013C 3254 CVTPURG 00004 000104 3201 CVTPURGA 00003 000105 3203 CVTPUTL 00004 0001BC 3395 CVTPVBP 00004 000318 3591 CVTPVTP 00004 000164 3285 CVTPWI 00004 000314 3589 CVTQABST 00002 0000D4 3152 CVTQCDSR 00004 0000B8 3139 CVTQCS01 00004 00027C 3509 CVTQID 00004 000018 3994 CVTQIDA 00003 000019 3996 CVTQLPAQ 00004 0000BC 3140 CVTQMSG 00004 00010C 3205 CVTQMWR 00004 0000B0 3093 CVTQOCR 00004 0000AC 3089 CVTQSAS 00004 000200 3441 CVTQTD00 00004 00006C 3036 CVTQTE00 00004 000068 3034 CVTQUIS 00004 000210 3449 CVTQV1 00004 0003A8 3673 CVTQV2 00004 0003AC 3676 CVTQV3 00004 0003B0 3679 CVTRAC 00004 0003E0 3709 CVTRBCB 00004 00016C 3292 CVTRCEP 00004 000490 3810 CVTRCZRT 00002 0004A4 3826 CVTRDE 00001 00000080 4013 CVTREAL 00004 00011C 3232 CVTRECON 00004 000380 3649 CVTRECRQ 00004 0002BC 3537 CVTRENQ 00004 000288 3515 CVTRESTX 00004 000444 3762 CVTRLSTG 00004 000358 3627 CVTRMBR 00004 000348 3620 CVTRMPMT 00004 000394 3663 CVTRMPTT 00004 000390 3659 CVTRMS 00004 0000E0 3157 CVTRMT 00004 000408 3732 CVTRNIO 00001 00000002 3180 CVTRONE 00004 00002C 3940 CVTRONS 00004 000028 3938 CVTRPOST 00004 00029C 3524 CVTRSCN 00004 000194 3365 CVTRSMWD 00001 00000080 3306 CVTRSPIE 00004 00028C 3516 CVTRSTCI 00002 0002CC 3550 1 CROSS REFERENCE PAGE 43 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTRSTCP 00001 000150 3274 CVTRSTRI 00002 0002CE 3552 CVTRSTRS 00001 000151 3276 CVTRSTWD 00004 0002CC 3546 CVTRSTW2 00004 000150 3271 CVTRSUME 00004 000400 3728 CVTRS0F4 00004 0000F4 3194 CVTRS05C 00002 00005C 3030 CVTRS1AD 00003 0001AD 3388 CVTRS1D7 00001 0001D7 3421 CVTRS12C 00004 00012C 3244 CVTRS170 00004 000170 3294 CVTRS180 00008 000180 3343 CVTRS26C 00004 00026C 3503 CVTRS3A4 00004 0003A4 3672 CVTRS3C0 00004 0003C0 3689 CVTRS3F8 00004 0003F8 3724 CVTRS360 00004 000360 3635 CVTRS374 00004 000374 3644 CVTRS4A1 00003 0004A1 3822 CVTRS4B5 00003 0004B5 3839 CVTRS418 00004 000418 3741 CVTRTMCT 00004 00023C 3475 CVTRTMS 00004 000250 3489 CVTRT03 00004 00017C 3341 CVTRWNE 00004 000024 3936 CVTRWNS 00004 000020 3934 CVTSAF 00004 0000F8 3195 CVTSCAN 00004 0001E0 3428 CVTSCBP 00004 000248 3483 CVTSCPIN 00004 000340 3616 CVTSDBF 00004 00024C 3485 CVTSDMP 00004 000244 3481 CVTSDRM 00004 00021C 3453 CVTSDTRC 00001 00000001 3359 CVTSDUMP 00001 00000080 3214 CVTSFR 00004 000114 3226 CVTSHRVM 00004 0001A0 3370 CVTSIC 00004 000258 3493 CVTSIGPT 00001 0001D4 3412 CVTSKTA 00004 00002C 4008 CVTSLID 00003 000175 3303 CVTSLIDA 00004 000174 3295 CVTSLIST 00004 000474 3796 CVTSLOC 00004 00047C 3800 CVTSMCA 00004 0000C4 3144 CVTSMEXT 00004 0004AC 3833 CVTSMFEX 00004 0001C8 3401 CVTSMFSP 00004 000424 3748 CVTSMF83 00004 000420 3746 CVTSNAME 00008 000154 3278 CVTSNCTR 00002 0000B4 3098 CVTSOLN 00001 00000080 3830 CVTSOPF 00001 00000020 3333 CVTSPD 00001 00000040 3169 1 CROSS REFERENCE PAGE 44 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTSPDMC 00001 0001D5 3415 CVTSPDME 00004 0000E4 3160 CVTSPFRR 00004 00035C 3630 CVTSPIP 00004 0004BC 3842 CVTSPOST 00004 0002C8 3544 CVTSPSA 00004 0002AC 3529 CVTSPVLK 00001 00018D 3348 CVTSRBRT 00004 0001C0 3397 CVTSREGN 00004 000478 3798 CVTSRM 00004 0003E8 3714 CVTSSAP 00004 0002E8 3566 CVTSSCR 00004 0003C8 3693 CVTSSRB 00004 0003A0 3671 CVTSTB 00004 000070 3038 CVTSTCK 00004 0001D8 3422 CVTSTXU 00004 000214 3450 CVTSUBSP 00001 00000002 3317 CVTSUSP 00004 000410 3738 CVTSVDCB 00004 000054 3027 CVTSVPRC 00001 00000040 3308 CVTSVT 00004 000364 3636 CVTSV60 00004 000240 3477 CVTSV76M 00004 000078 3062 CVTSYLK 00001 000174 3299 CVTSYLKR 00001 00000000 3302 CVTSYLKS 00001 000000FF 3301 CVTSYSAD 00004 000030 3006 CVTS1EE 00004 000208 3445 CVTTAS 00004 000198 3366 CVTTCASP 00004 0003F4 3721 CVTTCBP 00004 000000 2965 CVTTCMFG 00001 0000F0 3188 CVTTCRDY 00001 00000080 3189 CVTTCTL 00004 000404 3730 CVTTOD 00001 00000020 3123 CVTTPC 00004 000058 3029 CVTTPIO 00004 0003BC 3687 CVTTPIOS 00004 000254 3491 CVTTPUR 00004 000438 3757 CVTTRACE 00002 000190 3363 CVTTRAC2 00002 000192 3364 CVTTRCRM 00004 00019C 3368 CVTTRPOS 00004 000440 3760 CVTTSCE 00004 0000D8 3154 CVTTSKI 00004 000460 3783 CVTTVT 00004 00009C 3081 CVTTZ 00004 000130 3245 CVTT6SVC 00004 00040C 3736 CVTUCBA 00004 0004E4 3862 CVTUCBSC 00004 000434 3755 CVTUCBSV 00001 00000008 3879 CVTUDUMP 00001 00000040 3218 CVTUSER 00004 0000CC 3150 CVTUSR 00001 00000004 3177 CVTVACR 00004 00037C 3646 1 CROSS REFERENCE PAGE 45 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVTVEAC0 00004 0002A4 3526 CVTVESTU 00004 0004E8 3864 CVTVFCB 00004 000458 3776 CVTVFGET 00004 000450 3771 CVTVFIND 00004 00044C 3769 CVTVFMEM 00004 000454 3773 CVTVME 00001 00000040 3977 CVTVPRM 00004 00004C 3020 CVTVPSA 00004 00038C 3657 CVTVPSIB 00004 000324 3603 CVTVPSM 00002 00004E 3022 CVTVSI 00004 000328 3604 CVTVSS 00002 00004C 3021 CVTVSTGX 00001 00000000 3923 3833 CVTVSTOP 00004 000388 3655 CVTVS1A 00001 00000002 3135 CVTVS1B 00001 00000001 3137 CVTVTAM 00004 0004B8 3840 CVTVVMDI 00004 000228 3463 CVTVWAIT 00004 000270 3504 CVTWLM 00001 00000040 3887 CVTWSAC 00004 0002B8 3535 CVTWSAG 00004 0002B4 3533 CVTWSAL 00004 0002B0 3531 CVTWSMA 00004 000344 3618 CVTWSPR 00001 00000020 3172 CVTWTCB 00004 000378 3645 CVTXAFL 00001 0004B4 3835 CVTXAPG 00004 000014 2987 CVTXAX 00001 00000080 3872 CVTXCPCT 00002 000448 3764 CVTXEXTR 00004 000338 3612 CVTXITP 00004 000044 3017 CVTXPFP 00001 00000001 3115 CVTXSFT 00004 000304 3579 CVTXSTKN 00004 00030C 3585 CVTXSTKS 00004 000308 3583 CVTXTLER 00004 00002C 3003 CVTXTNT1 00001 00000000 3962 3197 CVTXTNT2 00001 00000000 3970 3266 CVTXUNSN 00004 000330 3608 CVTXUNSS 00004 000310 3587 CVTZDTAB 00004 000040 3015 CVT0DS 00004 000088 3072 CVT0EF00 00004 000004 2978 CVT0EF01 00004 000048 3018 CVT0PT0E 00004 0003EC 3717 CVT0PT01 00004 000098 3079 CVT0PT02 00004 000370 3642 CVT0PT03 00004 0003F0 3719 CVT0SCR1 00004 0000E8 3162 CVT0TC0A 00004 000354 3625 CVT0VL00 00004 000018 2989 CVT0VL01 00004 0001A4 3374 CVT040ID 00004 0000A0 3082 1 CROSS REFERENCE PAGE 46 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0CVT044R2 00004 0002D4 3555 CVT062R1 00004 0002A0 3525 CVT1EF00 00004 0000A8 3087 CVT1R004 00008 000004 3965 CVT1SSS 00001 00000040 3045 CVT121TR 00001 00000004 3112 CVT2R000 00004 000000 3971 CVT2R020 00004 000020 4000 CVT2R035 00003 000035 4016 CVT2R04C 00004 00004C 4030 CVT2R044 00004 000044 4027 CVT2R058 00044 000058 4034 CVT2SPS 00001 00000020 3049 CVT4MPS 00001 00000004 3053 CVT4MS1 00001 00000010 3050 3058 CVT6DAT 00001 00000002 3054 3058 CVT8AOS2 00001 00000012 3058 D#WK1 00008 000550 0431 D#WK2 00008 000558 0432 DEND0030 00001 000008F1 0366 0355 DEND0032 00001 00000909 0392 0383 DENT0030 00001 000008DB 0353 0355 DENT0032 00001 000008F4 0381 0383 DPUT#S 00008 002030 6906 6719 DPUT#S_ 00080 002034 6909 6704 DPUT#SL 00002 002030 6907 DPUTBLOK 00004 0020FC 6918 6715 DSAB 00001 00000000 4732 4827 DSABAM 00001 00000008 4759 DSABANAM 00001 000001 4830 DSABANL 00001 00000002 4831 DSABANMI 00001 00000000 4828 4831 DSABANML 00001 000000 4829 DSABANMP 00004 00001C 4743 DSABATCT 00001 00000002 4781 DSABAUCB 00001 00000002 4805 DSABBCHN 00004 000008 4736 DSABCASL 00001 00000001 4807 DSABCATL 00001 00000008 4789 DSABCATM 00001 00000002 4768 DSABCKDS 00001 00000080 4795 DSABCKSI 00001 00000020 4798 DSABCKVL 00001 00000040 4796 DSABCONV 00001 00000010 4765 DSABCQ 00001 00000008 4751 DSABCX 00001 00000010 4750 DSABDA 00001 00000020 4749 DSABDALC 00001 00000080 4762 DSABDCAT 00001 00000008 4766 DSABDCBM 00006 000038 4816 DSABDCNV 00001 00000020 4764 DSABDEFR 00001 00000080 4785 DSABDEXT 00002 000026 4809 DSABFCHN 00004 000004 4735 DSABFLG1 00001 000022 4761 1 CROSS REFERENCE PAGE 47 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0DSABFLG2 00001 000023 4770 DSABFLG3 00001 000024 4784 DSABFLG4 00001 000025 4794 DSABGANM 00001 00000008 4801 DSABGS 00001 00000080 4756 DSABHIER 00001 00000010 4800 DSABID 00004 000000 4734 DSABIRM 00001 00000040 4772 DSABIS 00001 00000080 4747 DSABJCHG 00001 00000008 4775 DSABJSCT 00001 00000004 4790 DSABL 00001 00000050 4827 DSABLCAT 00001 00000004 4803 DSABLNTH 00002 00000C 4737 DSABMQ 00001 00000004 4752 DSABNODI 00001 00000004 4777 DSABNUSE 00001 00000001 4769 DSABOPCT 00002 00000E 4738 DSABOPEN 00001 00000080 4771 DSABORG 00002 000020 4745 DSABORG1 00001 000020 4746 DSABORG2 00001 000021 4755 DSABPALC 00001 00000040 4763 DSABPASS 00001 00000040 4786 DSABPCAT 00001 00000004 4767 DSABPO 00001 00000002 4753 DSABPS 00001 00000040 4748 DSABPTTR 00004 00002C 4811 DSABRS01 00001 000014 4740 DSABSIOT 00004 000040 4821 DSABSSCM 00004 000034 4814 DSABSSNM 00004 000030 4813 DSABSSVA 00003 000015 4741 DSABTCBP 00004 000028 4810 DSABTCTL 00002 00003E 4817 DSABTCT2 00004 000048 4823 DSABTIOT 00004 000010 4739 DSABTIOX 00001 00000001 4792 DSABTOKN 00004 000044 4822 DSABTQ 00001 00000020 4758 DSABTR 00001 00000004 4760 DSABTX 00001 00000040 4757 DSABU 00001 00000001 4754 DSABUNAL 00001 00000020 4773 DSABVAM 00001 00000020 4787 DSABVLF 00001 00000010 4774 DSABVMSC 00001 00000010 4788 DSABVVDS 00001 00000002 4791 DUMMYCAL 00001 00001A88 6668 6666 6667 ECHOERR 00001 00000EC4 1069 0735 0788 0965 ERRMSG01 00080 00145C 1551 0733 0734 0786 0787 0963 0964 1076 1094 1111 1112 FNDTXT 00002 000F96 1180 1156 GOTC1 00002 0010F0 1331 1271 1328 GOTERR 00001 00000DC8 0957 0896 GOTMDB 00002 000F40 1133 0895 1 CROSS REFERENCE PAGE 48 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0GOTMDBC 00002 00103C 1267 1151 GOTMDBG 00002 000FD4 1208 1144 GOTMDBT 00002 0010F2 1348 1195 GOTTMVC 00002 001188 1400 1393 GOTTX 00002 001186 1398 1355 1391 GOTT1 00002 00115E 1386 1384 GOTT2 00002 001174 1392 IHBL0040 00002 000A20 0573 0565 IHBL0041 00002 000A44 0590 0584 IHBL0066 00002 000D44 0917 0911 IHBL0067 00002 000DAC 0950 0942 IHB0003B 00004 000088 0035 0029 IHB0003F 00001 000084 0031 0037 IHB0003L 00004 000080 0030 0036 IHB0005B 00004 000110 0088 0096 IHB0006 00001 00000120 0093 0089 0091 IHB0006A 00001 00000124 0095 0092 IHB0008B 00004 000138 0110 0104 IHB0008F 00001 000134 0106 0113 IHB0008L 00004 000130 0105 0111 IHB0010F 00001 000164 0134 0139 IHB0016F 00001 00022C 0214 0220 IHB0019F 00001 000268 0244 0250 IHB0035B 00004 00092C 0487 0481 IHB0035F 00001 000928 0483 0489 IHB0035L 00004 000924 0482 0488 IHB0037B 00004 0009C0 0540 0551 IHB0038 00001 000009D4 0546 0541 0542 0544 IHB0038A 00001 000009E0 0550 0545 IHB0040 00004 000A08 0566 0562 IHB0041 00004 000A34 0585 0581 IHB0042B 00004 000A58 0606 0600 IHB0042F 00001 000A54 0602 0609 IHB0042L 00004 000A50 0601 0607 IHB0066 00004 000D34 0912 0908 IHB0067 00004 000D94 0943 0939 IHB0077B 00004 000ED8 1080 1091 IHB0078 00001 00000EEC 1086 1081 1082 1084 IHB0078A 00001 00000EF8 1090 1085 IHB0080B 00004 000F0C 1098 1109 IHB0081 00001 00000F20 1104 1099 1100 1102 IHB0081A 00001 00000F2C 1108 1103 IHB0085B 00004 001000 1226 1237 IHB0086 00001 00001014 1232 1227 1228 1230 IHB0086A 00001 00001020 1236 1231 IHB0091B 00004 001074 1288 1299 IHB0092 00001 00001088 1294 1289 1290 1292 IHB0092A 00001 00001094 1298 1293 IHB0094B 00004 0010A8 1306 1317 IHB0095 00001 000010BC 1312 1307 1308 1310 IHB0095A 00001 000010C8 1316 1311 IHB0107A 00002 0013F0 1535 1531 IHB0139B 00004 001B84 6759 6767 IHB0140 00001 00001B94 6764 6760 6762 IHB0140A 00001 00001B98 6766 6763 1 CROSS REFERENCE PAGE 49 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0IHB0142B 00004 001BC4 6781 6791 IHB0143 00001 00001BD4 6786 6782 6784 IHB0143A 00001 00001BE0 6790 6785 IHB0145B 00004 001BF0 6797 6807 IHB0146 00001 00001C00 6802 6798 6800 IHB0146A 00001 00001C0C 6806 6801 IHB0149B 00004 001C34 6824 6833 IHB0150 00001 00001C40 6828 6826 IHB0150A 00001 00001C4C 6832 6827 IHB0152B 00004 001C64 6841 6850 IHB0153 00001 00001C70 6845 6843 IHB0153A 00001 00001C7C 6849 6844 IHB0155B 00004 001C94 6858 6867 IHB0156 00001 00001CA0 6862 6860 IHB0156A 00001 00001CAC 6866 6861 IHB0158B 00004 001CC4 6875 6884 IHB0159 00001 00001CD0 6879 6877 IHB0159A 00001 00001CDC 6883 6878 IKJ$0022 00001 0000090A 0404 0273 IKJ$0024 00001 000008BC 0297 0293 IKJ$0030 00001 000008F1 0365 0364 IKJ$0100 00002 00121A 1449 1441 IKJ$0134 00002 001B46 6734 6726 IKJ@0022 00001 00000028 0402 0274 IKJ@0023 00001 00000034 0304 0275 IKJ@0024 00001 000008A1 0292 0291 IKJ@0026 00001 000008C8 0319 0318 IKJ@0028 00001 000008D6 0339 0338 IKJ@0029 00001 00000069 0372 0346 IKJ@0030 00001 000008EE 0363 0362 IKJ@0031 00001 00000081 0398 0374 IKJ@0032 00001 00000909 0391 0390 IKJ@0100 00002 001204 1442 1438 IKJ@0134 00002 001B30 6727 6723 IKJ00241 00001 000008BC 0296 0295 IOPL 00001 00000000 6477 6489 IOPLECB 00004 000008 6486 IOPLECT 00004 000004 6485 IOPLIOPB 00004 00000C 6487 IOPLUPT 00004 000000 6484 JESAB445 00004 000024 4493 JESALLOA 00002 00004C 4439 JESALLOC 00004 000020 4383 JESALLOF 00001 00004E 4441 JESALLOP 00004 000048 4437 JESALRDY 00001 00000010 4447 JESAUCBS 00004 000054 4455 JESCATL 00004 000028 4389 JESCT 00001 00000000 4365 4550 JESCTEXT 00004 000064 4462 JESCTID 00004 000000 4366 JESDACA 00004 000078 4470 JESDB401 00004 000014 4489 JESDSNID 00002 000078 4538 JESDSNNO 00004 000074 4536 1 CROSS REFERENCE PAGE 50 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0JESDUECB 00004 000058 4457 JESEDT 00004 000034 4398 JESFLG 00001 000046 4408 JESFRQEX 00001 00000020 4411 JESFSICB 00004 000064 4520 JESFSIT 00001 00000040 4410 JESGB4DC 00004 00001C 4491 JESGB4UV 00004 000020 4492 JESGB400 00004 000028 4496 JESGDTOK 00004 000050 4510 JESHASH 00004 000040 4405 JESIB650 00004 000038 4500 JESJESFG 00001 000047 4417 JESJSSNT 00001 00000080 4409 JESMAXDD 00004 000044 4504 JESMECHK 00004 00005C 4517 JESMNTP 00004 000060 4460 JESMSGT@ 00004 000088 4544 JESNRSS 00002 000044 4407 JESNUCBS 00004 00002C 4392 JESPARSE 00004 000070 4467 JESPCDP 00004 000050 4454 JESPEXT 00001 00000000 4480 JESPJESN 00004 00001C 4381 JESPPT 00004 000068 4464 JESPPTSC 00004 000070 4531 JESPPTUS 00004 00006C 4528 JESPQDIR 00004 00004C 4508 JESPQMST 00004 000048 4506 JESPSUBA 00001 00000080 4418 JESPSUBI 00001 00000040 4420 JESQBSVA 00004 000058 4514 JESQB551 00004 00002C 4497 JESQB556 00004 000030 4498 JESQMGR 00004 00000C 4370 JESRECF 00004 00003C 4403 JESRECM 00004 000038 4401 JESRESQM 00004 000010 4373 JESRSTRT 00004 00006C 4466 JESRSVEA 00002 00007A 4540 JESRSVEB 00004 00008C 4545 JESRSVEC 00004 000090 4546 JESRSVED 00004 000094 4547 JESRSV05 00001 00000004 4450 JESRSV06 00001 00000002 4451 JESRSV07 00001 00000001 4452 JESRSV08 00001 00004F 4453 JESRSV15 00001 00000010 4412 JESRSV16 00001 00000008 4413 JESRSV17 00001 00000004 4414 JESRSV18 00001 00000002 4415 JESRSV19 00001 00000001 4416 JESRSV24 00001 00000008 4433 JESRSV25 00001 00000004 4434 JESRSV26 00001 00000002 4435 1 CROSS REFERENCE PAGE 51 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0JESRSV27 00001 00000001 4436 JESRSV28 00004 00007C 4472 JESSASTA 00004 000030 4396 JESSCVER 00001 00000008 4549 JESSID 00007 000000 4482 JESSJCNL 00004 000008 4484 JESSJDVT 00004 00000C 4486 JESSJF 00004 00003C 4501 JESSJRNL 00004 000010 4488 JESSJTCL 00004 000068 4522 JESSMSIB 00004 000054 4512 JESSSCT 00004 000018 4378 JESSSIPC 00004 000080 4542 JESSSIVT 00004 00007C 4541 JESSSREQ 00004 000014 4376 JESSVERS 00001 000007 4483 JESTIOTS 00004 000040 4503 JESUASF 00001 00000040 4444 JESUASR 00001 00000080 4442 JESUNALC 00004 000024 4386 JESUNITS 00004 000004 4367 JESUPLER 00001 00000020 4446 JESUPLP 00004 00005C 4459 JESVTPC 00004 000084 4543 JESV2EDT 00001 00000008 4448 JESWAA 00004 000008 4368 JESXBCHK 00004 000060 4519 JESXBPUT 00004 000034 4499 JESXB603 00004 000074 4468 JESXVNSL 00004 000018 4490 JES3ACTV 00001 00000020 4430 JES3OUTD 00001 00000010 4431 KEND0025 00001 000008C2 0309 0307 KEND0027 00001 000008D0 0329 0327 KEYW0025 00001 000008BC 0305 0307 KEYW0027 00001 000008CA 0325 0327 L_CPPL 00001 00000010 6434 L_IOPL 00001 00000010 6489 L_PPL 00001 00000020 6474 0133 0213 0243 LMGCRE 00002 0012F8 1473 0762 M 00080 001EA0 6900 6774 6775 6776 6788 6804 6820 6830 6837 6847 6854 6864 6871 6881 MCART 00008 00184C 1582 0768 1329 MCS#ACT 00001 00000A74 0617 0524 MCS#DEA 00001 00000E0A 0981 0593 MCSA 00004 001858 1584 0703 MCSCALRT 00001 000024 2294 MCSCCNID 00004 000008 2259 MCSCDDEP 00004 000018 2263 MCSCDJOB 00001 00000040 2267 MCSCDLIM 00001 000022 2292 MCSCDSYS 00001 00000004 2268 MCSCDTIM 00001 00000080 2266 MCSCDX 00001 00000002 2269 MCSCEND 00001 00000034 2299 MCSCID 00004 000000 2253 1 CROSS REFERENCE PAGE 52 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0MCSCINTR 00001 000023 2293 MCSCMFRM 00001 000020 2265 MCSCMLIM 00001 000021 2291 MCSCNUSE 00004 00000C 2260 MCSCOEXT 00004 000030 2297 MCSCOMM 00001 00000000 6924 0058 0510 6695 6938 MCSCOMML 00001 0000011C 6938 0427 6894 MCSCPDEP 00004 00001C 2264 MCSCQSTA 00004 000021 2290 MCSCSA 00001 00000000 2252 MCSCSAA 00004 00185C 1585 0702 MCSCSTOR 00002 000006 2258 MCSCSUSP 00001 000025 2295 MCSCTDEP 00004 000010 2261 MCSCUDEP 00004 000014 2262 MCSCVER 00001 000004 2254 MCSCVERS 00001 00000001 2256 MCSC410 00001 00000001 2255 2256 MCSECB 00004 001854 1583 0692 0808 MCSENT 00001 000428 0427 0059 MCSENT2 00001 001D80 6894 6696 6697 MCSOAALL 00001 00000040 2438 MCSOAIO 00001 00000010 2440 MCSOALGP 00008 00002E 2537 MCSOASYS 00001 00000020 2439 MCSOATH1 00001 000002 2436 0623 MCSOATH2 00001 000003 2443 MCSOAUTH 00002 000002 2435 MCSOAUTN 00001 00000010 2563 MCSOAUTY 00001 00000020 2562 MCSOCONS 00001 00000008 2441 MCSOCSNM 00008 000026 2531 MCSODOM 00001 00001D 2515 MCSODOMA 00001 00000040 2517 MCSODOMN 00001 00000080 2516 MCSODOMX 00001 00000020 2518 MCSOFLAG 00001 00003D 2570 MCSOHDCN 00001 00000004 2568 MCSOHDCY 00001 00000008 2567 MCSOINFO 00001 00000004 2442 MCSOKEY 00008 00001E 2524 MCSOLOGC 00001 00001B 2498 MCSOLOGN 00001 00000040 2500 MCSOLOGS 00001 00000080 2499 MCSOMAP 00001 00000000 2599 MCSOMFJ 00001 00000020 2452 MCSOMFM 00001 00000010 2453 MCSOMFM1 00001 000004 2449 MCSOMFM2 00001 000005 2455 MCSOMFRM 00002 000004 2448 MCSOMFS 00001 00000040 2451 MCSOMFT 00001 00000080 2450 MCSOMFX 00001 00000008 2454 MCSOMIG 00001 00001C 2505 MCSOMIGN 00001 00000040 2507 1 CROSS REFERENCE PAGE 53 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0MCSOMIGY 00001 00000080 2506 MCSOMISC 00001 00003C 2553 MCSOMLAL 00001 00000002 2468 MCSOMLBC 00001 00000004 2467 MCSOMLCE 00001 00000020 2464 MCSOMLE 00001 00000010 2465 MCSOMLI 00001 00000040 2463 MCSOMLIN 00001 00000008 2466 MCSOMLR 00001 00000080 2462 MCSOMLVL 00002 000006 2460 MCSOMLV1 00001 000006 2461 MCSOMLV2 00001 000007 2469 MCSOMSFG 00001 000036 2548 MCSOMSGT 00002 000008 2475 MCSOMSNM 00004 000000 2596 MCSOMSPT 00004 000038 2552 MCSOMSTR 00001 00000080 2437 0623 MCSOMTJN 00001 00000080 2477 MCSOMTJT 00001 00000040 2478 MCSOMTP1 00001 000008 2476 MCSOMTP2 00001 000009 2482 MCSOMTS 00001 00000008 2481 MCSOMTSS 00001 00000020 2479 MCSOMTST 00001 00000010 2480 MCSOPLEN 00001 00000044 2590 MCSOPPRM 00001 00000000 2421 0621 2590 MCSORCAL 00001 00000080 2490 MCSORCDT 00017 00000A 2488 MCSORCFL 00001 00000A 2489 MCSORCNO 00001 00000040 2491 MCSORTCD 00016 00000B 2492 MCSOSALL 00001 00000080 2549 MCSOSLST 00001 00000040 2550 MCSOSTOR 00002 000000 2428 MCSOSYSE 00008 000000 2601 MCSOTBL 00001 00000000 2595 MCSOTSYS 00008 000004 2597 MCSOUDN 00001 00000040 2558 MCSOUDY 00001 00000080 2557 MCSOVRDN 00001 00000040 2587 MCSOVRDY 00001 00000080 2586 MDB 00001 00000000 1883 0875 1891 MDBBLACK 00001 000000F0 2144 MDBBLINK 00001 000000F1 2154 MDBBLUE 00001 000000F1 2145 MDBCAREA 00001 000074 2046 MDBCASID 00002 00002E 2005 MDBCATTR 00002 000028 1994 MDBCATT1 00001 000028 1995 1327 MDBCATT2 00001 000029 2002 MDBCAUT 00001 00000010 2019 MDBCAUTH 00001 00000020 1998 MDBCAUTO 00008 00004C 2027 MDBCCART 00008 000054 2028 1329 MDBCCNID 00004 00005C 2029 1 CROSS REFERENCE PAGE 54 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0MDBCCNNM 00008 00008E 2089 MDBCDESC 00002 000024 1956 1279 MDBCERC 00016 000014 1955 1278 MDBCFIDO 00001 00000020 2018 MDBCFMID 00008 00000C 1944 MDBCFUDO 00001 00000040 2017 MDBCHC 00001 00000008 2020 MDBCHUD 00001 00000001 2079 MDBCICMD 00001 00000040 2023 MDBCKEY 00008 000044 2026 MDBCLCNT 00004 000076 2048 MDBCLEN 00002 000000 1938 MDBCMCSC 00001 00000040 1997 1327 MDBCMCSF 00002 000096 2090 MDBCMGT1 00001 000060 2031 MDBCMGT2 00001 000061 2040 MDBCMISC 00001 00003A 2015 MDBCMLVL 00002 000026 1975 MDBCMSC2 00001 00003B 2021 MDBCMSGT 00002 000060 2030 MDBCMVS 00001 D4E5E240 1954 MDBCOBJ 00001 00000002 1940 1510 MDBCOCMD 00001 00000080 2022 MDBCOJBN 00008 00007A 2049 MDBCOJID 00008 00003C 2025 MDBCPNAM 00004 000008 1943 1270 MDBCPROD 00016 000004 1941 MDBCPRTY 00002 00002A 2003 MDBCQHCO 00001 00000002 2078 MDBCQNLY 00001 00000004 2001 MDBCRANO 00001 00000008 2076 MDBCRAYS 00001 00000004 2077 MDBCRBCA 00001 00000004 2068 MDBCRBCN 00001 00000002 2069 MDBCRCCN 00001 00000002 2060 MDBCRCDC 00001 00000020 2056 MDBCRCFC 00001 00000020 2074 MDBCRCKY 00001 00000040 2073 MDBCRCMF 00001 00000010 2075 MDBCRCMT 00001 00000080 2054 MDBCRCRC 00001 00000040 2055 MDBCRDTM 00001 00000080 2063 MDBCRETN 00001 00000010 1999 MDBCRFB1 00001 00008A 2053 MDBCRFB2 00001 00008B 2062 MDBCRFB3 00001 00008C 2071 MDBCRFHC 00001 00000020 2065 MDBCRFLG 00003 00008A 2052 MDBCRHCO 00001 00000008 2067 MDBCRNHC 00001 00000010 2066 MDBCRNRT 00001 00000001 2070 MDBCROMS 00001 00000040 2064 MDBCRPML 00001 00000001 2061 MDBCRPYB 00004 000070 2045 MDBCRPYI 00008 000064 2042 1 CROSS REFERENCE PAGE 55 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0MDBCRPYL 00002 000062 2041 MDBCRQPC 00001 00000010 2057 MDBCRQRC 00001 00000004 2059 MDBCRQUN 00001 00000008 2058 MDBCRRET 00001 00000080 2072 MDBCRSV1 00002 000098 2108 MDBCRSV4 00001 000075 2047 MDBCRSV5 00002 00002C 2004 MDBCRSV6 00002 00006C 2043 MDBCSAUT 00001 00000010 2084 MDBCSEER 00001 00000040 2082 MDBCSMPF 00001 00000001 2088 MDBCSNSI 00001 00000020 2083 MDBCSNSV 00001 00000080 2081 MDBCSPLX 00008 000082 2050 MDBCSPVD 00001 00000008 2000 MDBCSQED 00001 00000008 2085 MDBCSSSI 00001 00000004 2086 MDBCSUPB 00001 00008D 2080 MDBCSUPP 00001 00000080 1996 MDBCSWTO 00001 00000002 2087 MDBCSYID 00001 000038 2008 MDBCTCB 00004 000030 2006 MDBCTOFF 00002 00006E 2044 1273 MDBCTOKN 00004 000034 2007 MDBCTYPE 00002 000002 1939 MDBCUD 00001 00000080 2016 MDBCVER 00004 000004 1942 MDBCVER1 00001 00000001 1945 MDBCVER2 00001 00000002 1946 MDBCVER3 00001 00000003 1947 MDBCVER4 00001 00000004 1948 MDBCVER5 00001 00000005 1949 MDBCVID 00001 00000030 1953 MDBCV10 00001 00000010 1950 MDBCV20 00001 00000020 1951 MDBCV30 00001 00000030 1952 1953 MDBCWTL 00001 00000020 2024 MDBCXMOD 00004 00008A 2051 MDBDASID 00001 00000020 2012 MDBDESCA 00001 00000080 1958 MDBDESCB 00001 00000040 1959 MDBDESCC 00001 00000020 1960 MDBDESCD 00001 00000010 1961 MDBDESCE 00001 00000008 1962 MDBDESCF 00001 00000004 1963 MDBDESCG 00001 00000002 1964 MDBDESCH 00001 00000001 1965 MDBDESCI 00001 00000080 1967 MDBDESCJ 00001 00000040 1968 MDBDESCK 00001 00000020 1969 MDBDESCL 00001 00000010 1970 MDBDESCM 00001 00000008 1971 MDBDESCN 00001 00000004 1972 MDBDESCO 00001 00000002 1973 1 CROSS REFERENCE PAGE 56 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0MDBDESCP 00001 00000001 1974 MDBDESC1 00001 000024 1957 MDBDESC2 00001 000025 1966 MDBDJTCB 00001 00000010 2013 MDBDMSGI 00001 00000080 2010 MDBDOMFL 00001 000039 2009 MDBDSYSI 00001 00000040 2011 MDBDTOKN 00001 00000008 2014 MDBFCO 00001 00000002 1592 1149 1155 1272 MDBFGO 00001 00000001 1591 1142 1155 1248 MDBFLGS 00001 00186C 1590 0892 1142 1149 1155 1248 1272 MDBG 00001 00000000 1897 1210 MDBGALRM 00001 00004000 1911 MDBGBCOL 00001 000025 1927 MDBGBCON 00001 000024 1926 MDBGBGPA 00004 000024 1925 MDBGBHIL 00001 000026 1928 MDBGBINT 00001 000027 1929 MDBGDOM 00001 00008000 1910 MDBGDSTP 00007 000014 1907 1212 1213 MDBGFCOL 00001 000021 1922 MDBGFCON 00001 000020 1921 MDBGFGPA 00004 000020 1920 MDBGFHIL 00001 000022 1923 MDBGFINT 00001 000023 1924 MDBGHOLD 00001 00002000 1912 MDBGJBNM 00008 000030 1931 MDBGLEN 00002 000000 1898 MDBGMFLG 00002 00001C 1909 MDBGMID 00004 000004 1901 1215 MDBGOBJ 00001 00000001 1900 1509 MDBGOSNM 00008 000028 1930 MDBGREEN 00001 000000F4 2148 MDBGRSV1 00001 000013 1906 MDBGRSV2 00001 00001B 1908 MDBGRSV3 00002 00001E 1913 MDBGSEQ 00003 000005 1903 MDBGSYID 00001 000004 1902 MDBGTIMH 00008 000008 1904 1214 MDBGTIMT 00003 000010 1905 MDBGTYPE 00002 000002 1899 MDBHLEN 00001 0000000C 1891 1137 1190 MDBHNONE 00001 00000000 2153 MDBIHIGH 00001 000000E8 2159 MDBINORM 00001 000000E4 2158 MDBLEN 00002 000000 1884 1135 1157 1184 1197 MDBMCSA 00001 00000080 2092 MDBMCSB 00001 00000040 2093 MDBMCSC 00001 00000020 2094 MDBMCSD 00001 00000010 2095 MDBMCSE 00001 00000008 2096 MDBMCSF 00001 00000004 2097 MDBMCSF1 00001 000096 2091 MDBMCSF2 00001 000097 2100 MDBMCSG 00001 00000002 2098 1 CROSS REFERENCE PAGE 57 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0MDBMCSH 00001 00000001 2099 MDBMCSI 00001 00000080 2101 MDBMCSJ 00001 00000040 2102 MDBMCSK 00001 00000020 2103 MDBMCSL 00001 00000010 2104 MDBMCSM 00001 00000008 2105 MDBMCSN 00001 00000004 2106 MDBMCSO 00001 00000002 2107 MDBMID 00004 000004 1887 MDBMLBC 00001 00000004 1982 MDBMLCE 00001 00000020 1979 MDBMLE 00001 00000010 1980 MDBMLI 00001 00000008 1981 MDBMLIA 00001 00000040 1978 MDBMLR 00001 00000080 1977 MDBMLRSG 00001 00000002 1983 MDBMLRSH 00001 00000001 1984 MDBMLRSI 00001 00000080 1986 MDBMLRSJ 00001 00000040 1987 MDBMLRSK 00001 00000020 1988 MDBMLRSL 00001 00000010 1989 MDBMLRSM 00001 00000008 1990 MDBMLRSN 00001 00000004 1991 MDBMLRSO 00001 00000002 1992 MDBMLRSP 00001 00000001 1993 MDBMLVL1 00001 000026 1976 MDBMLVL2 00001 000027 1985 MDBMSGTA 00001 00000080 2032 MDBMSGTB 00001 00000040 2033 MDBMSGTC 00001 00000020 2034 MDBMSGTD 00001 00000010 2035 MDBMSGTF 00001 00000004 2037 MDBPID 00004 000000 1706 MDBPINK 00001 000000F3 2147 MDBPLNNO 00001 0000001C 1714 1518 MDBPNEXT 00004 000008 1711 1188 MDBPOEXT 00004 000018 1713 MDBPRFX 00001 00000000 1704 1187 1714 MDBPS410 00001 00000001 1708 1709 MDBPVER 00001 000004 1707 MDBPVID 00001 00000001 1709 MDBRED 00001 000000F2 2146 MDBRSV13 00001 00000008 2036 MDBRSV14 00001 00000002 2038 MDBRSV15 00001 00000001 2039 MDBRVIDO 00001 000000F2 2155 MDBSCP 00001 00000000 1937 1269 MDBSNALM 00001 00000080 2142 MDBT 00001 00000000 2114 1350 2135 MDBTCONT 00001 00000080 2120 MDBTDATT 00001 00000020 2122 MDBTENDT 00001 00000010 2123 MDBTFPAF 00001 00000001 2128 MDBTLABT 00001 00000040 2121 MDBTLEN 00002 000000 2115 1380 1513 1 CROSS REFERENCE PAGE 58 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0MDBTLNTY 00002 000004 2118 MDBTLNT1 00001 000004 2119 MDBTLNT2 00001 000005 2127 MDBTMBOB 00001 0000000A 2135 MDBTMSGT 00001 0000000A 2134 1352 1388 1513 2135 MDBTMTPA 00004 000006 2129 MDBTOBJ 00001 00000004 2117 1511 MDBTPCOL 00001 000007 2131 MDBTPCON 00001 000006 2130 MDBTPHIL 00001 000008 2132 MDBTPINT 00001 000009 2133 MDBTPROT 00001 00000008 2124 MDBTRSV1 00001 00000004 2125 MDBTRSV2 00001 00000002 2126 MDBTTYPE 00002 000002 2116 MDBTURQ 00001 000000F5 2149 MDBTWAIT 00001 00001146 1378 1361 1369 1377 MDBTWAI2 00001 0000113E 1370 1358 MDBTYPE 00002 000002 1885 1139 1192 MDBTYP1 00001 00000001 1886 MDBUNDER 00001 000000F4 2156 MDBVER 00004 000008 1888 MDBVER1 00001 00000001 1889 1890 MDBVID 00001 00000001 1890 MDBWHITE 00001 000000F7 2151 MDBYELOW 00001 000000F6 2150 MSG 00080 0018FA 1605 MSG#A005 00002 00159C 1557 MSG#E001 00079 000735 0450 0232 0235 MSG#HELP 00079 000784 0452 0456 MSG#HPL 00001 000000ED 0456 MSG#O001 00079 000648 0446 MSG#O002 00079 000697 0447 MSG#O003 00079 0006E6 0448 MSG#0002 00080 0014AC 1552 1212 1213 1214 1222 1240 1241 MSG#0003 00080 0014FC 1554 0516 0517 0518 MSG#0004 00080 00154C 1556 0512 0513 MSG#0005 00080 00159E 1558 1364 1365 1366 1557 MSG#0007 00080 0015EE 1560 1284 1302 1319 1320 MSG#0014 00080 00163E 1561 0536 0553 0554 MSG#0015 00080 00168E 1562 0924 0925 0926 MSG#0016 00080 001742 1564 0930 0931 MSG#0017 00080 001792 1565 0971 0972 MSGLEN 00002 0018F8 1604 MSGLP 00001 00000C6C 0811 1160 1201 MSGPARM 00004 0018F8 1603 MSGWAITF 00001 0018F4 1600 0743 0743 0898 1368 1376 MYOPER 00004 0018F0 1598 M00M0046 00002 000AAA 0645 M00M0061 00002 000C82 0831 M00M0073 00002 000E26 1001 M1 00080 001EF0 6902 6774 M2 00080 001F40 6903 6820 6837 6854 6871 M3 00080 001F90 6904 6704 M4 00080 001FE0 6905 6687 6690 6739 6742 1 CROSS REFERENCE PAGE 59 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0NAME0026 00001 000008C2 0315 0317 NAME0028 00001 000008D0 0335 0337 NEND0026 00001 000008CA 0321 0317 NEND0028 00001 000008D8 0341 0337 NOTC 00002 000F80 1153 1148 NOTG 00002 000F68 1146 1141 NOTT 00002 000FBE 1196 1194 NXTOBJ 00002 000F80 1154 1143 1145 1150 1152 OBJLP 00002 000F4C 1138 1159 P#WK1 00008 000578 0435 P#WK2 00008 000580 0436 PCLADCON 00004 00028C 0269 0153 PCLAREA 00004 000290 0270 PCLCMD 00004 000008 0300 0189 0190 0289 PCLDEFS 00001 00000888 0272 0269 0273 0276 0281 0303 0304 0314 0320 0324 0334 0340 0344 0349 0371 0372 0377 0397 0398 0403 PCLM 00002 000012 0331 0328 PCLMES 00004 00001C 0394 0197 0198 0384 PCLMFLD 00002 0008F2 0374 0340 PCLT 00002 000010 0311 0308 PCLTFLD 00002 0008D9 0346 0320 PCLTM 00004 000014 0368 0356 PEND0024 00001 000008BC 0298 0288 POST0024 00001 0000088E 0286 0288 PPL 00001 00000000 6459 0144 0158 6474 PPL_ADR 00004 000418 0421 0143 0209 0239 PPL_LEN 00004 000414 0420 0142 PPLANS 00004 000010 6469 0149 PPLCBUF 00004 000014 6470 0147 PPLECB 00004 000008 6467 0152 PPLECT 00004 000004 6466 0146 PPLPCL 00004 00000C 6468 0154 PPLUPT 00004 000000 6465 0145 PPLUWA 00004 000018 6471 PPLVEWA 00004 00001C 6472 PRDSECT 00001 00000000 0277 0187 0289 0299 0308 0310 0328 0330 0356 0367 0384 0393 0400 0402 PUTBLOK 00004 001230 1461 1430 PUTL#S 00008 001240 1465 1434 PUTL#S_ 00080 001244 1468 1417 PUTL#SL 00002 001240 1466 1419 QUIT1 00001 00000A4A 0597 0526 RC 00004 001864 1587 0705 0722 0731 0868 0894 0961 1075 REENTA 00004 001414 1548 0495 0500 0536 1075 1076 1093 1094 1221 1222 1283 1284 1301 1302 1610 REENTAL 00001 00000584 1610 0482 0601 1501 REENTAX 00001 00001998 1609 RSN 00004 001868 1588 0706 0725 0732 0869 0962 1093 R00 00001 00000000 6490 0142 6819 6888 R01 00001 00000001 6491 0020 0042 0142 0148 0149 0151 0152 0153 0154 0189 0194 0197 0203 0209 0219 0239 0249 0472 0494 0512 0517 0528 0529 0530 0530 0532 0534 0553 0874 0920 0921 0921 0923 0925 0930 0971 1111 1240 1273 1274 1319 1356 1357 1357 1359 1363 1365 1380 1381 1382 1383 1385 1387 1393 1394 1395 1396 1417 1537 1538 1538 1539 6540 6542 6544 6624 6624 6625 6626 6627 6628 6629 6630 6631 6632 6682 6809 6835 6852 6869 6886 R02 00001 00000002 6492 0190 0191 0192 0195 0198 0199 0199 0201 0202 0204 0513 0518 0554 0760 0765 0926 0931 0972 1112 1241 1320 1352 1353 1354 1360 1366 1388 1389 1390 1395 1401 1416 1418 1418 1419 6628 6632 6633 6777 6782 6793 6798 1 CROSS REFERENCE PAGE 60 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0R03 00001 00000003 6493 0024 0025 0476 0477 1527 1528 6515 6516 6676 6677 R04 00001 00000004 6494 0042 0045 0048 0112 0494 0497 0500 0536 0608 1075 1076 1093 1094 1221 1222 1283 1284 1301 1302 6695 6696 6760 R05 00001 00000005 6495 0058 0059 0089 0472 0509 0509 0510 6697 R06 00001 00000006 6496 0020 0055 0056 0083 0497 0499 1136 1181 1185 1186 1187 1188 1189 1200 1200 1202 1413 1414 1453 6682 6699 6701 6702 R07 00001 00000007 6497 0498 0535 0541 1075 1081 1093 1099 1134 1135 1158 1183 1184 1198 1221 1227 1283 1289 1301 1307 6540 6625 6629 6634 6634 R08 00001 00000008 6498 0043 0047 0495 0499 0874 0875 1134 1136 1137 1137 1157 1158 1181 1183 1185 1190 1190 1197 1198 1202 1204 1210 1250 1269 1333 1350 1402 6542 6620 6621 6621 6633 6635 6635 R09 00001 00000009 6499 0044 0046 0496 0498 0536 0542 1076 1082 1094 1100 1222 1228 1284 1290 1302 1308 1422 6544 6616 6616 6636 6707 R10 00001 0000000A 6500 0045 0047 1423 6708 R11 00001 0000000B 6501 0046 R12 00001 0000000C 6502 0050 0052 0143 0144 0182 0186 0187 0207 1139 1140 1147 1192 1193 6518 6520 6679 6681 R13 00001 0000000D 6503 0049 0050 0051 0052 0260 0501 0502 6517 6518 6519 6520 6608 6678 6679 6680 6681 6813 R14 00001 0000000E 6504 0018 0073 0125 0471 0514 0519 0524 0555 0576 0593 0618 0735 0742 0788 0927 0932 0965 0973 0982 1070 1113 1144 1151 1195 1209 1242 1268 1321 1349 1367 1397 1408 6558 6642 6889 R15 00001 0000000F 6505 0024 0183 0183 0222 0252 0476 0525 0525 0621 0622 0624 0722 0723 0723 0725 0726 0726 0736 0771 0771 0782 1527 6614 6618 6622 6770 6771 6771 6819 6888 R2ENTA 00004 000290 0408 0043 0048 0458 R2ENTAL 00001 000005E1 0458 0030 0105 0461 R2ENTAX 00001 00000871 0457 SA 00004 001CF0 6892 6678 6680 6813 SA#REGS 00004 001D38 6893 6819 6829 6846 6863 6880 6888 SA#001 00004 000290 0410 0051 0260 SAVEAREA 00004 001414 1549 0501 SAVEIOPL 00004 000320 0412 SAVEPPL 00004 0002D8 0411 SHOWREGS 00001 00001C26 6818 SRTEALOC 00001 00000008 5485 SRTEASCI 00001 00000004 5745 5746 SRTEBALB 00001 00000020 5741 SRTEBNUL 00001 00000001 5748 SRTEBPRV 00001 00000010 5742 SRTEBPUB 00001 00000008 5743 SRTEBSTR 00001 00000004 5744 5747 SRTEBSVL 00001 00000080 5740 SRTEBVQS 00001 00000004 5747 SRTECHGS 00001 00000040 5482 SRTEDADI 00001 00000001 5488 SRTEDMCT 00001 00000023 5749 SRTEFSCT 00002 00000018 5869 SRTEFSEQ 00002 0000001A 5870 SRTEJBNR 00001 00000000 5478 SRTEMNT 00001 00000001 5479 SRTEONLI 00001 00000080 5481 SRTEPRES 00001 00000004 5486 SRTERESV 00001 00000020 5483 SRTESTAB 00001 00000022 5739 SRTESTAT 00001 00000003 5480 SRTESYSR 00001 00000002 5487 SRTEUNLD 00001 00000010 5484 SRTEUSER 00002 00000026 5730 SRTEVOLI 00006 0000001C 5738 1 CROSS REFERENCE PAGE 61 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0TEXTAREA 00082 0017EC 1576 0760 TOBJLP 00002 000FAE 1191 1199 TOFF 00004 001870 1594 1274 1353 1382 1389 TR 00016 001A6C 6645 6646 TSRE0012 00001 000001DE 0180 0170 TSRL0012 00001 000001C6 0172 0166 TXTLP 00002 000F98 1182 1203 UCBACTIV 00001 000003 6116 UCBAF 00001 00000040 5246 UCBAFP1 00001 0000000F 6220 UCBALOC 00001 00000008 5298 5485 UCBALTCU 00001 00000002 5265 UCBAMV 00001 00000040 5249 UCBAOF 00002 000018 6260 UCBAOF1 00001 000018 6263 UCBAOF2 00001 000019 6273 UCBAPUB 00004 00001C 6034 UCBASCI 00001 00000004 5746 UCBASID 00002 00000E 5593 UCBASUN 00001 00000080 5527 UCBATI 00001 000003 5544 UCBATNCT 00001 00001A 6282 UCBATRCD 00001 00000001 6296 UCBATTN 00001 00000008 5725 UCBATTP 00001 00000080 5460 UCBAUTOS 00001 00000020 5582 UCBBALB 00001 00000020 5668 5741 UCBBASE 00004 000028 5731 UCBBCTC 00001 00000002 6415 UCBBGN 00001 00000000 5214 UCBBLP 00001 00000001 5893 UCBBNUL 00001 00000001 5677 5748 UCBBOX 00001 00000001 5356 UCBBPRV 00001 00000010 5670 5742 UCBBPUB 00001 00000008 5671 5743 UCBBRSTA 00001 00000001 6124 UCBBRSTR 00001 00000002 6099 UCBBSTR 00001 00000004 5672 5744 5745 UCBBSVL 00001 00000080 5654 5740 UCBBTA 00004 000024 6245 UCBBTAM 00001 00000010 6305 UCBBTB 00003 000025 6249 UCBCABYP 00001 00000040 6405 UCBCCLAW 00001 00000080 6403 UCBCGMID 00004 000004 6125 UCBCGMNO 00001 000001 6101 UCBCHAN 00002 000004 5319 UCBCHAR1 00004 000008 6129 UCBCHAR2 00004 00000C 6130 UCBCHAR3 00004 000010 6131 UCBCHAR4 00004 000014 6132 UCBCHGS 00001 00000040 5288 5482 UCBCHPRM 00001 00000C 5590 UCBCLEAR 00001 00000002 5350 UCBCLEXT 00004 000018 5614 1 CROSS REFERENCE PAGE 62 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0UCBCLN 00002 00003E 5965 UCBCMEXT 00001 00000000 5515 UCBCMSEG 00001 00000000 5218 UCBCOMPA 00001 00000004 5992 UCBCSFLG 00001 00001E 5621 UCBCSL 00001 00000008 5889 UCBCSLAC 00001 00000004 5891 UCBCTCAD 00004 000018 6380 UCBCTCAL 00004 000018 6383 UCBCTCF1 00001 00001C 6386 UCBCTCF2 00004 000024 6401 UCBCTCWA 00004 000020 6400 UCBCTC80 00001 00000080 6388 UCBCTD 00002 000030 5933 UCBCTLNA 00003 000025 6333 UCBCTLNK 00004 000024 6328 UCBCUIR 00001 00000001 5267 UCBDADI 00001 00000001 5312 5488 UCBDATP 00001 00000024 5716 UCBDBUF 00001 00000020 5530 UCBDCC 00001 00000080 5245 UCBDCONS 00001 00000002 5238 UCBDCTOF 00002 00001C 5619 UCBDDRSW 00001 00000001 5469 UCBDDT 00004 000014 5609 UCBDDTI 00002 000014 5611 UCBDEFER 00001 00000080 5326 UCBDEV 00001 00000018 5496 5649 5864 6014 6030 6237 6259 6350 6379 UCBDI 00001 000024 6246 UCBDKAMX 00001 00000080 6066 UCBDKBYT 00001 000006 6065 UCBDMC 00001 0000007F 5715 UCBDMCT 00001 000023 5686 5749 UCBDQDSP 00001 00000020 5886 UCBDRNO 00001 00000020 6304 UCBDRO 00001 00000040 6303 UCBDSM 00001 00000042 6221 UCBDUC 00001 00000020 5227 UCBDUDN1 00001 00000020 5989 UCBDUDN2 00001 00000010 5990 UCBDVCLS 00001 000012 5436 UCBDVPWR 00001 00000001 5435 UCBDVSHR 00001 00000080 5656 UCBDWNR 00001 00000002 6308 UCBDYNPH 00001 00000002 5572 UCBD1600 00001 00000004 5983 UCBD6250 00001 00000002 5984 UCBENVRD 00001 00000008 5255 UCBERADR 00004 00000C 6192 UCBERCNT 00001 000007 6182 UCBERG 00002 00003C 5963 UCBERLOG 00001 00000004 5570 UCBERPC 00001 00000010 5906 UCBESV 00001 00000080 5898 UCBESVC 00001 00000020 5902 1 CROSS REFERENCE PAGE 63 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0UCBESVE 00001 00000008 5908 UCBETI 00001 000000 5519 UCBEVA 00001 00000040 5900 UCBEXTP 00003 000015 5470 UCBEXTPT 00004 000014 5449 UCBFCBID 00004 000008 6191 UCBFCBNM 00004 000018 6133 UCBFCBOP 00001 000005 6168 UCBFCBO1 00001 00000080 6170 UCBFCBPE 00001 00000001 6180 UCBFCBPS 00001 0000000C 6174 UCBFLA 00001 000006 5324 5325 UCBFLB 00001 000007 5358 UCBFLC 00001 000014 5459 UCBFLP1 00001 000005 5559 UCBFL1 00001 00000006 5325 5489 UCBFL2 00001 00000006 5489 UCBFL4 00001 000025 5720 UCBFL5 00001 000001 5244 UCBFL6 00001 000002 5526 UCBFL7 00001 000007 5579 UCBFRID 00004 000000 6048 UCBFSCT 00002 000018 5865 5869 UCBFSEQ 00002 00001A 5866 5870 UCBFSER 00006 000024 5871 UCBGCB 00001 00001B 6241 UCBGRAF 00001 00001C 6301 UCBGRAFS 00001 000002 6103 UCBGRAF0 00001 00000008 6108 UCBGRAF1 00001 00000004 6110 UCBGRAF2 00001 00000002 6112 UCBGRAF3 00001 00000001 6114 UCBGUCB 00001 00000011 5275 UCBHALI 00001 00000002 5553 UCBHALT 00001 00000004 5343 UCBHDET 00001 00000008 5384 UCBHILVL 00001 00000010 5382 UCBHOLD 00001 00000004 5726 UCBHPDV 00001 00000001 5555 UCBICNCB 00004 00001C 6353 UCBID 00001 000002 5272 UCBIDCPY 00001 000000CC 5274 UCBIDS 00001 00000010 5532 UCBIEXT 00004 000008 5589 UCBIMAGE 00004 00001C 6135 UCBIN 00001 00000080 5396 UCBINCPT 00001 00000080 5359 UCBINHIO 00001 00000010 5567 UCBINRLN 00001 000020 6317 UCBIOSBA 00004 000018 6031 UCBIOSN 00001 00000004 5386 UCBIOT 00001 00000001 5541 UCBIPGID 00002 000010 6193 UCBIRB 00004 00001C 6298 UCBIRBA 00003 00001D 6310 1 CROSS REFERENCE PAGE 64 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0UCBIRLN 00001 000020 6318 UCBITFP 00001 00000040 5461 UCBIVRR 00001 00000004 5466 UCBIVRS 00001 00000008 5464 UCBJBNR 00001 000000 5219 5478 UCBJES3 00001 00000040 5224 UCBJ3DV 00001 00000010 5229 UCBLDATA 00002 000020 6136 UCBLDNCA 00004 000020 6313 UCBLDNCB 00003 000021 6324 UCBLERP 00001 00000002 5538 UCBLKAHP 00001 00000002 5892 UCBMASGN 00001 00000080 5580 UCBMAT 00001 00000002 5727 UCBMDISP 00001 00000040 5529 UCBMDLBT 00001 000000F0 6096 UCBMDRBA 00003 000025 6143 UCBMDRBF 00004 000024 6140 UCBMDRID 00001 000033 5937 UCBMMSGP 00001 00000004 5234 UCBMONT 00001 00000001 5240 5479 UCBMOUNT 00001 00000080 5687 UCBMS 00001 00003B 5961 UCBMT 00002 000030 5930 UCBMTDSM 00001 00000080 5944 UCBMTFL1 00001 000034 5943 UCBMTKEP 00001 00000040 5945 UCBMTPXP 00001 00000008 5403 UCBMTRET 00001 00000020 5946 UCBNALOC 00001 00000004 5256 UCBNAME 00003 00000D 5410 UCBNB 00001 00003A 5959 UCBNCC3 00001 00000080 5624 UCBNEXP 00004 00002C 5732 UCBNLTP 00001 00000080 5882 UCBNOCON 00001 00000020 5380 UCBNOPTH 00001 00000040 5376 UCBNOSEL 00001 00000010 5583 UCBNOTRD 00001 00000040 5330 UCBNRY 00001 00000040 5329 5330 UCBNSLTP 00001 00000040 5884 UCBNSRCH 00001 00000080 5560 UCBNXUCB 00004 000008 5393 UCBOB 00004 000000 5213 UCBOBRID 00001 000032 5936 UCBOCR 00001 00000000 6047 UCBOFMCR 00001 00000080 6264 UCBOFNL 00001 00000020 6267 UCBOFPTR 00001 00000010 6268 UCBOFSP 00001 00000040 6266 UCBOIP 00001 00000080 6302 UCBOLDSM 00001 00000008 5230 UCBOLTEP 00001 00000080 6289 UCBONLI 00001 00000080 5287 5481 UCBOPEN 00001 00001A 6239 1 CROSS REFERENCE PAGE 65 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0UCBOPTNS 00001 000000 6094 UCBOSA 00001 00000005 6418 UCBOSAD 00001 00000006 6419 UCBOSAF 00001 0000000F 6420 UCBOUT 00001 00000040 5397 UCBPCTC 00001 00000000 6413 UCBPDCT 00016 000000 6204 UCBPDCTA 00001 00000000 6198 UCBPDCTO 00002 000012 6195 UCBPERM 00001 00000020 5331 UCBPERR 00001 00000004 5911 UCBPGFL 00001 00000040 5659 UCBPGID 00002 000022 6137 UCBPR 00001 000038 5951 UCBPRES 00001 00000004 5308 5486 UCBPRSRS 00001 00000020 5661 UCBPSNS 00001 00000010 5333 UCBPUB 00001 00000020 5398 UCBPW 00001 000039 5953 UCBRALOC 00001 00000001 5575 UCBRDATA 00004 000004 6050 UCBRDYQ 00004 000020 6315 UCBRDYQA 00003 000021 6326 UCBRERP 00001 00000020 5566 UCBRESV 00001 00000020 5293 5483 UCBREW 00001 00000010 5401 UCBRIPND 00001 00000004 6294 UCBRLN 00001 000024 6329 UCBRPND 00001 00000004 6307 UCBRPS 00001 00000010 5766 UCBRR 00001 00000020 5764 UCBRSV04 00001 00000080 5547 UCBRSV05 00001 00000040 5548 UCBRSV06 00001 00000020 5549 UCBRSV07 00001 00000010 5550 UCBRSV08 00001 00000008 5551 UCBRSV09 00001 00000004 5552 UCBRSV10 00001 00000002 5445 UCBRSV11 00001 00000001 5446 UCBRSV21 00001 00000002 5913 UCBRSV22 00001 00000001 5914 UCBRSV39 00001 00000020 6162 UCBRSV40 00001 00000010 6163 UCBRSV41 00001 00000008 6164 UCBRSV42 00001 00000004 6165 UCBRSV43 00001 00000002 6166 UCBRSV44 00001 00000040 6171 UCBRSV45 00001 00000020 6172 UCBRSV46 00001 00000010 6173 UCBRSV49 00001 00000002 6179 UCBRSV51 00001 000006 6181 UCBRSV65 00001 00000008 6269 UCBRSV66 00001 00000004 6270 UCBRSV67 00001 00000002 6271 UCBRSV68 00001 00000001 6272 1 CROSS REFERENCE PAGE 66 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0UCBRSV69 00001 00000080 6274 UCBRSV70 00001 00000040 6275 UCBRSV71 00001 00000020 6276 UCBRSV72 00001 00000010 6277 UCBRSV73 00001 00000008 6278 UCBRSV74 00001 00000004 6279 UCBRSV75 00001 00000002 6280 UCBRSV76 00001 00000001 6281 UCBRSV77 00001 00000040 6290 UCBRSV78 00001 00000020 6291 UCBRSV79 00001 00000010 6292 UCBRS6K 00001 00000003 6416 UCBRTIAC 00001 00000008 6293 UCBRVDEV 00001 00000008 5768 UCBRV005 00001 00000010 5888 UCBRV039 00001 00000001 6309 UCBRV040 00004 000018 6351 UCBRV042 00003 00001D 6399 UCBRV046 00001 00000080 6104 UCBRV047 00001 00000040 6105 UCBRV048 00001 00000020 6106 UCBRV049 00001 00000010 6107 UCBRV055 00001 00000008 6097 UCBRV056 00001 00000004 6098 UCBRV057 00001 00000080 6117 UCBRV058 00001 00000040 6118 UCBRV059 00001 00000020 6119 UCBRV060 00001 00000010 6120 UCBRV061 00001 00000008 6121 UCBRV062 00001 00000004 6122 UCBRV063 00001 00000002 6123 UCBRV066 00004 00001C 6033 UCBRV067 00001 00000020 6074 UCBRV068 00001 00000010 6075 UCBRV069 00001 00000008 6076 UCBRV070 00001 00000004 6077 UCBRV071 00001 00000002 6078 UCBRV072 00001 00000001 6079 UCBRV073 00001 000007 6080 UCBRV075 00001 000024 6142 UCBRV076 00001 00000040 6392 UCBRV077 00001 00000020 6393 UCBRV078 00001 00000010 6394 UCBRV079 00001 00000008 6395 UCBRV080 00001 00000004 6396 UCBRV081 00001 00000002 6397 UCBRV082 00001 00000001 6398 UCBRV083 00001 00000001 6100 UCBRWTAU 00001 00000008 5991 UCBSATI 00001 00000D 5591 UCBSCTC 00001 00000001 6414 UCBSELFD 00001 00000008 5534 UCBSER 00006 00003A 5955 UCBSFLS 00002 000006 5323 UCBSHAR 00001 00000002 5676 1 CROSS REFERENCE PAGE 67 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0UCBSHRUP 00001 00000040 5565 UCBSIO 00002 000036 5949 UCBSKPFG 00001 00000002 6295 UCBSMS 00001 00000020 5253 UCBSMSMM 00001 00000004 5536 UCBSNS 00004 000020 6244 UCBSNSCT 00001 000004 5557 UCBSQC 00001 000024 5718 UCBSSPND 00001 00000040 5581 UCBSTAB 00001 000022 5653 5739 UCBSTART 00002 000018 6238 UCBSTAT 00001 000003 5286 5480 UCBSTI 00001 000001 5523 UCBSTLI 00001 000006 5577 UCBSTND 00001 000000FF 5273 UCBSTRT 00001 00000008 5334 UCBST1 00001 00000012 5279 UCBST3 00001 000000FD 5281 UCBSWAPF 00001 00000008 5568 UCBSYSR 00001 00000002 5310 5487 UCBTBYT1 00001 000010 5415 UCBTBYT2 00001 000011 5424 UCBTBYT3 00001 000012 5437 UCBTBYT4 00001 000013 5448 UCBTEB 00004 00001C 6243 UCBTFL1 00001 00002B 5881 UCBTFL1S 00001 00000018 5887 UCBTFL2 00001 00002A 5874 UCBTLPOS 00001 00000010 5879 UCBTPSF 00001 00000040 5876 UCBTR 00001 000034 5938 5940 UCBTVCMP 00001 00000020 5878 UCBTW 00001 000035 5947 UCBTXMS 00001 00000080 5875 UCBTYP 00004 000010 5414 UCBUCS 00001 00000000 6156 UCBUCSID 00004 000000 6157 UCBUCSOP 00001 000004 6158 UCBUCSO1 00001 00000080 6160 UCBUCSO2 00001 00000040 6161 UCBUCSPE 00001 00000001 6167 UCBUDE 00001 00000020 5462 UCBUNLD 00001 00000010 5295 5484 UCBUNTYP 00001 000013 5447 UCBUPM 00001 00000008 6306 UCBUSER 00002 000026 5729 5730 UCBVHRSN 00001 00000002 5406 UCBVLPWR 00001 00000002 5432 UCBVLRSN 00001 00000001 5408 UCBVLSER 00006 000000 6064 UCBVLVER 00001 00000040 6070 UCBVOLI 00006 00001C 5652 5738 UCBVOPT 00001 00002C 5897 UCBVORSN 00001 00000004 5404 UCBVRDEV 00001 00000080 5223 1 CROSS REFERENCE PAGE 68 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0UCBVSDR 00001 00000010 5254 UCBVTOC 00004 000018 5650 UCBWDAV 00001 00000040 5722 UCBWGT 00001 00000C 5395 UCBWTOID 00003 000011 5607 UCBWTOWD 00004 000010 5605 UCBXTADR 00004 000018 6015 UCBXTN 00004 00002C 5894 UCBXTNB 00003 00002D 5915 UCB1FEA0 00001 00000080 5416 UCB1FEA1 00001 00000040 5417 UCB1FEA2 00001 00000020 5418 UCB1FEA3 00001 00000010 5419 UCB1FEA4 00001 00000008 5420 UCB1FEA5 00001 00000004 5421 UCB1FEA6 00001 00000002 5422 UCB1FEA7 00001 00000001 5423 UCB2OPT0 00001 00000080 5425 UCB2OPT1 00001 00000040 5426 UCB2OPT2 00001 00000020 5427 UCB2OPT3 00001 00000010 5428 UCB2OPT4 00001 00000008 5429 UCB2OPT5 00001 00000004 5430 UCB2OPT6 00001 00000002 5431 UCB2OPT7 00001 00000001 5434 UCB3CHAR 00001 00000004 5444 UCB3COMM 00001 00000040 5439 UCB3CTC 00001 00000041 5440 UCB3DACC 00001 00000020 5441 UCB3DISP 00001 00000010 5442 UCB3TAPE 00001 00000080 5438 UCB3UREC 00001 00000008 5443 UCB3172 00001 00000004 6417 UCB3211 00001 00000009 6222 UCB3263 00001 00000011 6223 UCB3400 00001 00000003 5997 UCB3423 00001 00000082 5998 UCB3480 00001 00000080 5999 UCB3490 00001 00000081 6000 UCB3540X 00001 00000000 6063 UCB3791L 00001 000000F1 6367 UCB3800 00001 0000000E 6224 UCB3800X 00001 00000000 6093 UCB3838 00001 0000004C 6225 UCB3895 00001 00000019 6226 UCB42AD1 00001 00000011 6368 UCB4245 00001 00000011 6227 UCB4248 00001 00000013 6228 WAITID 00004 000DC0 0955 0945 WAITMAX 00004 00140C 1546 0534 0535 0569 WAITSET1 00001 000009B0 0533 0531 WAITSKP1 00001 00000D84 0934 0919 WAITSKP2 00001 00000D74 0929 0922 WAITTU 00004 000DC4 0956 0915 0918 WAITXX 00008 000DB8 0954 0946 1 CROSS REFERENCE PAGE 69 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0WK_F 00004 001860 1586 WK#ALC#B 00004 00059C 0441 WK#ALC#C 00005 000592 0439 WK#ALC#T 00005 000597 0440 WK#CYLS 00002 0005A0 0442 WK#DEVT 00004 000644 0445 WK#EXTS 00010 0005A4 0444 WK#F 00004 0017E4 1566 1215 1221 WK#H 00002 0017E8 1567 WK#PRI#C 00005 000588 0437 WK#PRI#T 00005 00058D 0438 WK#TRKS 00002 0005A2 0443 WKCDESC 00002 001996 1608 1279 1301 WKCERC 00016 001986 1607 1278 1283 WMAXEXT 00008 0013B8 1521 1528 WMAXFLG 00004 001408 1545 0557 0557 1537 1539 WMAXID 00004 001410 1547 0568 0587 0914 WTOA 00004 001E9C 6896 6809 6835 6852 6869 6886 6901 WTOBUF 00002 001874 1595 WTOID 00004 001876 1596 1354 1390 1396 1516 WTOL 00001 00000054 6901 6897 WTOTXT 00118 00187A 1597 1401 1514 =A(L'WTOID+1) 00004 0013AC 1516 1394 =A(L'WTOTXT) 00004 0013A4 1514 1383 1385 =A(MDBCOBJ) 00004 001394 1510 1147 =A(MDBGOBJ) 00004 001390 1509 1140 =A(MDBTMSGT-MDBTLEN) 00004 0013A0 1513 1381 =A(MDBTOBJ) 00004 001398 1511 1193 =A(REENTAL) 00004 001370 1501 0496 =A(R2ENTAL) 00004 000880 0461 0044 =AL2(MDBPLNNO) 00002 0013B2 1518 1186 =C'F1SA' 00004 000884 0462 0049 =C'F1SA' 00004 001374 1502 0502 =C'MVS ' 00004 00139C 1512 1270 =CL4'MCSO' 00004 00137C 1504 0684 1040 =CL4'MDR ' 00004 001384 1506 0858 =CL8' ' 00008 001358 1498 0784 0787 =CL8'@CMDDMY' 00008 001338 1494 0627 =CL8'ACTIVATE' 00008 001348 1496 0730 0734 =CL8'GETMSG' 00008 001368 1500 0960 0964 =CL8'MCSOPER' 1 CROSS REFERENCE PAGE 70 -SYMBOL LEN VALUE DEFN REFERENCES ASM H V 02 18.12 06/19/98 0 00008 001340 1495 0729 0733 =CL8'MCSOPMSG' 00008 001360 1499 0959 0963 =CL8'MGCRE' 00008 001350 1497 0783 0786 =CL8'OPERCMD' 00008 000878 0460 0082 =CL8'OPERCMD' 00008 002108 6922 6751 =CL80'D A,L' 00080 002110 6923 6752 =F'0' 00004 00138C 1508 0918 =F'1' 00004 0013A8 1515 1387 =F'15' 00004 001A80 6665 6630 =F'3000' 00004 001378 1503 0532 =F'8' 00004 001388 1507 0894 =FL1'100' 00001 0013B4 1519 0694 =FL4'2147483647' 00004 001380 1505 0691 =H'100' 00002 0013B0 1517 0528 1 DIAGNOSTIC CROSS REFERENCE AND ASSEMBLER SUMMARY PAGE 71 - ASM H V 02 18.12 06/19/98 0 NO STATEMENTS FLAGGED IN THIS ASSEMBLY 0 OVERRIDING PARAMETERS- OBJECT OPTIONS FOR THIS ASSEMBLY DECK, OBJECT, LIST, XREF(FULL), NORENT, NOTEST, NOBATCH, ALIGN, ESD, RLD, NOTERM, NODBCS, LINECOUNT(55), FLAG(0), SYSPARM() NO OVERRIDING DD NAMES 0 1206 CARDS FROM SYSIN 27316 CARDS FROM SYSLIB 3577 LINES OUTPUT 131 CARDS OUTPUT VPW//PRT005 DD SYSOUT=*,DCB=(RECFM=VBA) 11DFSMS/MVS V1 R3.0 BINDER 18:12:26 FRIDAY JUNE 19, 1998 BATCH EMULATOR JOB(FCMD### ) STEP(L ) PGM= IEWL IEW2278I B352 INVOCATION PARAMETERS - MAP,LET,LIST,AC=1,AMODE=31,RMODE=24 IEW2308I 1112 SECTION $PRIVATE HAS BEEN MERGED. IEW2308I 1112 SECTION @CMD HAS BEEN MERGED. IEW2308I 1112 SECTION PCLDEFS HAS BEEN MERGED. IEW2308I 1112 SECTION CMDE HAS BEEN MERGED. IEW2308I 1112 SECTION @HC HAS BEEN MERGED. IEW2308I 1112 SECTION DUMMYCAL HAS BEEN MERGED. 1 *** M O D U L E M A P *** --------------- CLASS B_TEXT LENGTH = 2160 ATTRIBUTES = CAT, LOAD, RMODE= 24 --------------- SECTION CLASS ------- SOURCE -------- OFFSET OFFSET NAME TYPE LENGTH DDNAME SEQ MEMBER 0 $PRIVATE CSECT 60 SYSLIN 01 **NULL** 60 @CMD CSECT 828 SYSLIN 01 **NULL** 888 PCLDEFS CSECT 88 SYSLIN 01 **NULL** 910 CMDE CSECT 1088 SYSLIN 01 **NULL** 1998 @HC CSECT F0 SYSLIN 01 **NULL** 1A88 DUMMYCAL CSECT 6D8 SYSLIN 01 **NULL** *** DATA SET SUMMARY *** DDNAME CONCAT FILE IDENTIFICATION SYSLIN 01 SYS98170.T181222.RA000.FCMD###.LOADSET.H01 *** E N D O F M O D U L E M A P *** 1PROCESSING OPTIONS: ALIGN2 NO CALL YES CASE UPPER COMPAT UNSPECIFIED DCBS NO FILL NONE HOBSET NO LET 08 LINECT 060 LIST SUMMARY MAP YES 1 MAXBLK 032760 MSGLEVEL 00 OVLY NO PRINT YES RES NO REUSABILITY UNSPECIFIED STORENX NO TERM NO WKSPACE 000000K,000000K XCAL NO XREF NO ***END OF OPTIONS*** SAVE OPERATION SUMMARY: MEMBER NAME @CMD LOAD LIBRARY DDMSL.V1R2M1.LOADLIB PROGRAM TYPE LOAD MODULE VOLUME SERIAL FC9AI3 DISPOSITION REPLACED TIME OF SAVE 18.12.26 JUN 19, 1998 SAVE MODULE ATTRIBUTES: AC 001 AMODE 31 COMPRESSED NO DC NO EDITABLE YES EXCEEDS 16MB NO EXECUTABLE YES MIGRATABLE YES OL NO OVLY NO PACK,PRIME NO,NO PAGE ALIGN NO REFR NO RENT NO REUS NO RMODE 24 SCTR NO SSI SYM GENERATED NO TEST NO MODULE SIZE (HEX) 00002160 ENTRY POINT AND ALIAS SUMMARY: NAME: ENTRY TYPE AMODE C_OFFSET CLASS NAME STATUS 1 @CMD MAIN_EP 31 00000060 B_TEXT ***** E N D O F R E P O R T ***** 1DFSMS/MVS V1 R3.0 BINDER 18:12:26 FRIDAY JUNE 19, 1998 BATCH EMULATOR JOB(FCMD### ) STEP(L ) PGM= IEWL IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 0. 1---------------------- MESSAGE SUMMARY REPORT ---------------------- SEVERE MESSAGES (SEVERITY = 12) NONE ERROR MESSAGES (SEVERITY = 08) NONE WARNING MESSAGES (SEVERITY = 04) NONE INFORMATIONAL MESSAGES (SEVERITY = 00) 2008 2278 2308 **** END OF MESSAGE SUMMARY REPORT **** VPW//PRT006 DD SYSOUT=*,DCB=(RECFM=VBA) 1READY @CMD 'D SMF' T(10) M(IEE974I) @TC: -- Command Entry From Extended MCS Console -- @TC: D SMF @TC: MAXIMAM WAIT TIME : 00000BB8 (1/100SEC) @TC: MDBG INFORMATION : 1998.170-18.12.28 ID:1E002EC9 @TC: ROUTE CODE : 00000000 00000000 00000000 00000000 DESC : 1980 >TC:IEE974I 18.12.28 SMF DATA SETS 977 >TC: NAME VOLSER SIZE(BLKS) %FULL STATUS >TC: P-SYS1.AI09.MAN1 SYS9P3 36000 100 DUMP REQUIRED >TC: S-SYS1.AI09.MAN2 SYS9P3 36000 41 DUMP REQUIRED >TC: S-SYS1.AI09.MAN3 SYS9P3 36000 99 DUMP REQUIRED @TC: End of Message Wait Loop ... READY END