* /* START OF SPECIFICATIONS *** * 00000102 *01* PROCESSOR = ASSEM; * 00000202 **** END OF SPECIFICATIONS ***/ * 00000302 TITLE 'IGC0003I - TAPE INITIALIZATION - ENTRY POINT' 00020000 ********************************************************************** 00030002 * STATUS 00032002 * CHANGE LEVEL 0 00034002 * FUNCTION/OPERATION 00036002 * THIS MODULE WRITES A VOLUME LABEL SET, A DUMMY HEADER LABEL, 00038002 * AND A TAPE MARK ON TAPE UNDER CONTROL OF OS/360. 00041102 * (THE VOLUME LABEL SET CONSISTS ONLY OF THE VOL1 LABEL WHEN S20038 00043102 * THE SYSTEM TAPE LABEL UTILITY IS THE INVOKER. THE VOLUME S20038 00045102 * LABEL SET AND 80-BYTE HEADER LABEL MUST BE IN CONTIGUOUS S20038 00047102 * STORAGE). 00047502 * ENTRY POINTS 00052102 * IGC0003I 00054102 * INPUT 00056102 * AT ENTRY TO THIS MODULE, REGISTER 1 POINTS TO A 5-WORD S20038 00056502 * PARAMETER LIST. 00056902 * WORD 1 - BYTES 0 TO 2 - REWIND OPTION - X'C00004' S20038 00057902 * - UNLOAD OPTION - X'C00006' S20038 00064502 * - BYTE 3 - INDICATES WHICH UCB IN TIOT TO USE 00068202 * FOR MOUNTING PURPOSES 00068602 * WORD 2 - ADDRESS OF 8-BYTE DDNAME ON DD CARD THAT 00069002 * ALLOCATES DEVICES FOR MOUNTING TAPES. 00069102 * WORD 3 - ADDRESS OF VOLUME LABEL SET 00069202 * WORD 4 - BYTES 0 AND 1 - LENGTH OF ONE VOLUME LABEL 00069302 * BYTE 2 - NUMBER OF LABELS IN VOLUME LABEL SET 00069802 * BYTE 3 - COMMAND BYTE OF CONTROL CCW 00070202 * WORD 5 - ADDRESS OF FIRST TEN BYTES OF VOLUME S20038 00070702 * HEADER LABEL FOR THE LABEL IDENTIFIER S20038 00071802 * AND SERIAL NUMBER IN EBCDIC S20038 00073802 * OUTPUT 00074202 * THIS MODULE WRITES THE VOLUME LABEL SET SPECIFIED BY THE 00075302 * CALLER, A DUMMY HEADER LABEL (HDR1 FOLLOWED BY 76 EBCDIC ZEROS), 00077302 * AND A TAPE MARK ON THE TAPE ON THE DRIVE SPECIFIED BY THE CALLER. 00077702 * EXTERNAL ROUTINES 00078002 * GETMAIN - REQUEST CORE STORAGE 00078402 * EXCP - EXECUTE CHANNEL PROGRAM 00078502 * WAIT - WAIT 00079402 * WTOR - WRITE TO OPERATOR WITH REPLY 00079802 * WTO - WRITE TO OPERATOR 00080202 * FREEMAIN - RELEASE CORE STORAGE 00080602 * EXITS 00081002 * REGISTER 15 - MEANING OF CODE 00081102 * NORMAL - X'00000000' LABELING SUCCESSFUL 00081202 * ERROR - X'00000004' OPERATOR HAS CANCELED LABELING 00081602 * ERROR - X'00000008' PARAMETER LIST CANNOT BE ACCEPTED 00082002 * ERROR - X'0000000C' PERMANENT I/O ERROR 00082102 * TABLES/WORKAREAS 00082202 * SEE WORKAREA DSECT 00082302 * ATTRIBUTES 00082502 * REENTRANT 00082602 * TRANSIENT 00082702 * CHARACTER CODE DEPENDENCY 00082802 * NOT APPLICABLE 00083502 * NOTES 00083902 *********************************************************************** 00084302 * 00085202 IGC0003I CSECT S20038 00710020 *REGISTER USAGE: 00720000 R0 EQU 0 WORK REG 00730002 R1 EQU 1 PARM LIST & WORK REG 00732002 R2 EQU 2 WORK REG 00734002 R3 EQU 3 WORK REG 00736002 P0 EQU 4 CONTAINS LABEL CODE 00738002 R4 EQU 4 ADDR OF OLD LABEL 00738402 P1 EQU 5 UCB NUM & UNLOAD OPTION 00738802 R5 EQU 5 UNUSED 00739202 P2 EQU 6 ADDR OF DDNAME 00739602 R6 EQU 6 WORK REG 00739702 P3 EQU 7 ADDR OF VOL LABELS 00739802 R7 EQU 7 STORE CCW 00739902 P4 EQU 8 LABEL LENGTH-MUST BE EVEN 00746602 P5 EQU 9 NO. OF LABELS - WORK REG 00748602 PL EQU 10 PARAMETER LIST 00750602 RUCB EQU 11 01040000 RBASE EQU 12 01060000 RWKAREA EQU 13 01080000 R14 EQU 14 01100000 RCVT EQU 14 01120000 * 01122002 * CONSTANTS 01124002 * 01126002 C1 EQU 1 CONSTANT AREA 01128002 C2 EQU 2 DECIMAL 01128402 C3 EQU 3 01128802 C4 EQU 4 01129202 C6 EQU 6 01129602 C7 EQU 7 01129702 C8 EQU 8 01129802 C12 EQU 12 01129902 C15 EQU 15 01138602 C16 EQU 16 01140602 C20 EQU 20 01142602 C22 EQU 22 01144602 C24 EQU 24 01146602 C25 EQU 25 01147002 C28 EQU 28 01147402 C29 EQU 29 01147502 C32 EQU 32 01147602 C44 EQU 44 01147702 C47 EQU 47 01148402 C52 EQU 52 01148802 C57 EQU 57 01149202 C118 EQU 118 01149602 C253 EQU 253 01149702 C255 EQU 255 01149802 X00 EQU X'00' HEXADECIMAL 01149902 X01 EQU X'01' 01151602 X02 EQU X'02' 01153602 X03 EQU X'03' 01154002 X07 EQU X'07' 01154402 X0F EQU X'0F' 01154802 X1F EQU X'1F' 01154902 X20 EQU X'20' 01162102 X40 EQU X'40' 01164102 X7F EQU X'7F' 01166102 X80 EQU X'80' 01168102 XD4 EQU X'D4' 01168502 XE2 EQU X'E2' 01168902 XFE EQU X'FE' 01169302 CHAINFLG EQU X'40' CHAINING FLAG FOR IOB A50980 01169602 * 01176802 WORKREG EQU 15 01184002 * A19959 01191202 *0017055200-055600 MC01 01198402 * 042400,042600,043400,043600,054800 S20038 01205602 *A 012900 YM1084 01207602 *C 013000,055420 YM1084 01209602 *A 028104-028108,042232,058920 @ZA01681 01209702 *C 028100,028120 @ZA01681 01209802 *A 032700,032820,032840,059500 @ZA13759 01211899 BALR RBASE,R0 01212802 USING BEGIN,RBASE 01220000 USING WORKAREA,RWKAREA 01240000 USING UCB,RUCB 01260000 USING CVT,RCVT 01280000 BEGIN EQU * YM1084 01290002 * BEGIN SSM ENABLE SVC IS ENTERED ENABLED YM1084 01300002 LA R1,0(R1) STRIP OFF HIGH ORDER BITS 01320000 BEGUN L RCVT,CVTPTR LOAD ADDR OF COMM VECTOR TABLE 01340000 LPR PL,R1 LOAD PARAMETER LIST REG 01360000 LM P1,P4,0(PL) LOAD PARAMETER LIST 01380000 * P1 = UCB NUM + UNLOAD OPT 01400000 * P2 = DDNAME ADDRESS 01420000 * P3 = VOL LABELS ADDRESS 01440000 * P4 = LABEL OPTIONS 01460000 SRDL P4,16 P4 CONTAINS LABEL LENGTH 01480000 LTR R1,R1 TEST FOR FIRST TIME LOGIC 01500000 BM BYPASS BRANCH TO BYPASS IF NOT FIRST 01520002 LH WORKREG,LENGTH PICK UP STANDARD LENGTH 80 01540000 CLR P4,WORKREG ARE LABELS OF STANDARD LENGTH 01560000 BNH SIZEUP BRANCH IF YES 01580002 LR WORKREG,P4 STORE LABEL LENGTH 01600000 SIZEUP SH WORKREG,LENGTH DECREMENT LABEL LENGTH BY 80 01620000 LA R2,VARY-FIRST(WORKREG) CALCULATE WORK AREA SIZE 01632002 GETMAIN R,LV=(R2),SP=253 01660000 LR RWKAREA,R1 LOAD BASE REG FOR WORK AREA 01680000 ST R2,FIRST SAVE NUMBER OF WORK AREA BYTES 01700000 XC DCB(C118),DCB ZERO WORKAREA 01710002 OI IOB,CHAINFLG SET CHAIN FLAG A50980 01730002 BYPASS LPR PL,PL TURN OFF SECOND TIME LOGIC 01740000 SLDL P0,24 P0 CONTAINS LABEL CODE 01760000 SRL P1,22 P1 CONTAINS UCB CODE TIMES 4 01780000 L WORKREG,CVTTCBP PICK UP DOUBLE WORD ADDRESS 01800000 L WORKREG,C4(WORKREG) PICK UP TCB ADDRESS 01810002 L WORKREG,C12(WORKREG) PICK UP TIOT ADDRESS 01812002 LA WORKREG,C24(WORKREG) PICK UP DD ENTRY ADDRESS 01814002 SR R1,R1 01880000 FINDNAME IC R1,0(WORKREG) LOAD DD ENTRY LENGTH 01900000 LTR R1,R1 TEST FOR END OF TIOT 01920000 BZ BADPARM BRANCH IF END 01940002 CLC C4(C8,WORKREG),0(P2) CHECK DD ENTRY FOR DDNAME 01950002 LR R2,WORKREG SAVE POINTER 01980000 LA WORKREG,0(R1,WORKREG) TRY NEXT DD ENTRY 02000000 BNE FINDNAME BRANCH IF NO DDNAME 02020002 LA R3,C16(P1,R2) PICK UP ADDRESS OF UCB POINTER 02030002 CLR R3,WORKREG CHECK UPPER BOUNDARY 02060000 BNL BADPARM BRANCH IF TOO HIGH 02080002 L RUCB,C16(P1,R2) PICK UP UCB ADDRESS 02090002 TM UCBTBYT3,UCB3TAPE TEST FOR TAPE 02120000 BZ BADPARM BRANCH IF NOT TAPE 02140002 TM UCBWGT,SRTSYSIN+SRTSYSOT TEST FOR SYS IN OR SYS OUT DEV 02160000 BNE BADPARM BRANCH IF NEITHER 02180002 TM SRTESTAT,SRTEONLI TEST FOR ON LINE DEVICE 02200000 BZ BADPARM BRANCH IF NOT ON LINE 02220002 TM SRTESTAT,SRTECHGS+SRTERESV TEST FOR OFFLINE SCHEDULING 02240000 * OR RESERVED 02260000 BNE BADPARM BRANCH IF NOT 02280002 TM SRTEDMCT,X7F TEST FOR ZERO USERS 02290002 BNE BADPARM BRANCH IF NOT ZERO USERS 02320002 TM C15(PL),X03 TEST FOR CONTROL COMMAND CODE 02330002 BZ BADPARM BRANCH IF NOT CONTROL 02360002 LA R1,DEB BUILD DEB 02380000 MVI C16(R1),X01 INSERT NUM OF EXITS 02390002 LA R2,DCB 02420000 ST R2,C24(R1) INSERT DCB ADDR 02430002 MVI C24(R1),X0F INSERT DEB ID 02440002 MVC C29(C3,R1),CVTXAPG+C1 INSERT IOS APPAD TAB ADDR 02450002 MVI C28(R1),X02 INSERT EXT SCALE 02452002 ST RUCB,C32(R1) INSERT UCB ADDR 02454002 SRL P5,C16 POSITION DEVICE MOD 02456002 STC P5,C32(R1) INSERT DEVICE MOD 02458002 ST R1,DEBPTR BUILD DCB 02580002 LA WORKREG,ECB BUILD IOB 02600002 ST WORKREG,IOB+C4 INSERT ECB ADDR 02610002 LA WORKREG,CCW1 02640000 ST WORKREG,IOB+C16 INSERT CCW ADDR 02650002 ST R2,IOB+C20 INSERT DCB ADDR 02660002 SRL P5,8 P5 CONTAINS NUMBER OF LABELS 02700002 LTR P4,P4 TEST FOR ZERO LENGTH 02720002 BZ BADPARM BRANCH IF ZERO 02740002 LTR P5,P5 TEST FOR NO LABELS 02760002 BZ BADPARM BRANCH IF NO LABEL 02780002 OI SRTEDMCT,X80 SET MOUNTING INDICATOR IN UCB 02790002 CLC SRTEVOLI(C6),CHANPROG+C25 CHECK FOR NO VOL SER NUM 02800002 BNE REWUNLD BRANCH IF VOL SER @ZA01681 02810002 TM SWITCH,X01 MSG IEC703 ISSUED? @ZA01681 02810402 BZ BUILDMES BRANCH IF NO @ZA01681 02810802 REWUNLD MVI CCW1,X0F CCW1 WILL REWIND AND UNLOAD @ZA01681 02812002 MVI CCW1+C7,X01 02814002 EXCP IOB 02900000 WAIT 1,ECB=ECB 02920000 TM ECB,X20 TEST ECB FOR PERMANENT ERROR 02930002 BZ PERMERR BRANCH IF PERMANENT ERROR 02932002 MVI ECB,X00 ZERO ECB CODE 02934002 NOSERIAL XC SRTEVOLI(C6),SRTEVOLI ZERO VOL SER NUMBER IN UCB 02936002 BUILDMES MVC FIXED(C57),MOUNTMES SET UP MOUNT MESSAGE A36341 02938002 MVC FIXED+C22(C3),UCBNAME INSERT UNIT NAME INTO MESSAGE 02938402 L WORKREG,C16(PL) SET UP PTR TO 5TH PARM S20038 02938802 CLC STANDARD(C4),0(WORKREG) CHECK FOR STANDARD LABEL S20038 02939202 BNE TESTLOAD BRANCH IF NOT STANDARD LABEL 02939602 MVC FIXED+C47(C6),C4(WORKREG) PUT SER NO INTO MESS. S20038 02939702 MVC SRTEVOLI(C6),C4(WORKREG) PUT SER NO INTO UCB S20038 02939802 OI SRTESTAT,X01 SET STANDARD LABEL BIT IN UCB 02939902 TESTLOAD TM C2(PL),X02 TEST FOR UNLOAD OPTION 02946602 BZ MOUNT BRANCH IF NOT UNLOAD 02948602 EX R0,NOSERIAL ZERO VOLUME SERIAL NUMBER IN UCB 02950602 NI SRTESTAT,XFE RESET STANDARD LABEL BIT IN UCB 02952602 MOUNT WTOR ,REPLY,,ECB,MF=(E,FIXED) 03260000 ST R1,DOMSAVE SAVE MSGNUMBER @ZA13759 03270099 WAIT 1,ECB=ECB 03280000 L R1,DOMSAVE RESTORE MSGNUMBER @ZA13759 03282099 DOM MSG=(1) DELETE MSG FROM DOC @ZA13759 03284099 MVI ECB,X00 ZERO ECB CODE 03290002 CLI REPLY,XD4 TEST FOR REPLY 'MOUNTINT' 03292002 BE LABEL BRANCH IF MOUNTING 03294002 CLI REPLY,XE2 TEST FOR REPLY 'SKIP VOL' 03296002 BNE MOUNT BRANCH IF NOT SKIP 03346002 LA PL,C4 03356002 B THISEXIT BRANCH 03366002 LABEL LM R0,R7,CHANPROG LOAD CCW1 TO CCW4 03440002 AR R3,P4 RESOLVE COUNT IN CCW2 03460002 LA WORKREG,FIXED 03480000 AR R6,WORKREG RESOLVE ADDR IN CCW4 03500002 AR R7,P4 RESOLVE COUNT IN CCW4 03520002 STM R0,R7,CCW1 STORE CCW1 TO CCW4 IN WORK AREA 03540002 L P3,C8(PL) RESTORE P3 03550002 LABELING ST P3,CCW2 RESOLVE ADDR IN CCW2 03552002 ENTER MVI CCW2,X01 SET COMMAND CODE IN CCW2 03554002 ENTRY MVI ECB,X00 ZERO ECB CODE 03556002 EXCP IOB 03640000 WAIT 1,ECB=ECB 03660000 TM ECB,X20 TEST ECB FOR PERMANENT ERROR 03670002 BZ ERROR BRANCH IF PERMANENT ERROR 03672002 TM SWITCH,X20 TEST FOR TAPE MARK 03674002 BO FINISH BRANCH IF TAPE MARK 03676002 TM SWITCH,X40 TEST FOR DUMMY HEADER LABEL 03678002 BO ENDLABEL BRANCH IF DUMMY LABEL 03678402 LA WORKREG,C255 LOAD MAXIMUM COMPARE SIZE -1 03678802 LA R2,C1(WORKREG) R2 CONTAINS 256 03679202 LR R3,P4 R3 CONTAINS LENGTH OF LABELS 03840002 LR R4,P3 R4 CONTAINS ADDR OF OLD LABEL 03860002 LA R14,FIXED R14 CONTAINS ADDR OF NEW LABEL 03880002 TESTSIZE CLR R3,R2 IS THE LABEL BIGGER THAN 256 03900002 BNH LASTCOMP BRANCH IF NO 03920002 EX WORKREG,COMPARE EXECUTE COMPARE INST RUCTION 03940002 BNE LABELERR BRANCH IF NO COMPARE 03960002 SR R3,R2 DECREMENT LABEL LENGTH BY 256 03980002 AR R4,R2 INCREMENT OLD LABEL ADDR BY 256 04000002 AR R14,R2 INCREMENT NEW LABEL ADDR BY 256 04020002 B TESTSIZE BRANCH 04040002 LASTCOMP LTR R3,R3 CHECK FOR ZERO RESIDUE 04060002 BZ OUTCOMP BRANCH IF ZERO 04080002 BCTR R3,R0 MINIMUM COMPARE SIZE - 1 04100002 EX R3,COMPARE EXECUTE CLC 04120002 BNE LABELERR BRANCH IF NO COMPARE 04140002 OUTCOMP LA WORKREG,CCW2 04160000 ST WORKREG,IOB+C16 INSERT NEW CCW ADDR IN IOB 04170002 AR P3,P4 POINT TO NEXT LABEL 04172002 BCT P5,LABELING BRANCH TO DO NEXT LABEL 04174002 OI SWITCH,X40 TURN ON DUMMY LABEL SWITCH 04176002 MVC CCW2+C6(C2),LENGTH CCW2 WILL WRITE STANDARD HEADER 04178002 MVC CCW4+C6(C2),LENGTH CCW4 WILL READ STANDARD HEADER 04178402 B LABELING BRANCH 04178802 ENDLABEL MVI CCW2,X1F CCW2 WILL WRITE TAPE MARK 04179202 MVI CCW3,X03 CCW3 IS A NOP 04179602 MVI CCW4,X07 CCW4 WILL REWIND TAPE 04179702 TM C2(PL),X02 TEST FOR UNLOAD OPTION 04179802 BZ TURNON BRANCH IF NO UNLOAD 04179902 MVI CCW4,X0F CCW4 WILL REWIND/UNLOAD TAPE 04186602 TURNON OI SWITCH,X20 TURN ON TAPE MARK SWITCH 04188602 B ENTRY BRANCH 04190602 ERROR TM IOB+C3,X02 TEST FOR FILE PROTECT 04192602 BO TRYAGAIN BRANCH IF FILE PROTECT 04193002 TM SWITCH,X80 TEST FOR PREVIOUS ERROR 04193102 BZ SETERROR BRANCH IF ERROR 04193202 PERMERR LA PL,C12 SET ERROR CODE 04199902 B THISEXIT BRANCH 04201902 TRYAGAIN MVC FIXED(C44),FILEMESS SET UP ERROR MESSAGE A36341 04203902 MVI ECB,X00 ZERO ECB CODE A19959 04205902 B SETUPMES BRANCH 04206302 LABELERR MVC FIXED(C52),LABELMES SET UP ERROR MESSAGE A36341 04206402 SETUPMES MVC FIXED+C12(C3),UCBNAME INSERT UNIT NAME INTO MESSAGE 04206502 WTO MF=(E,FIXED) 04221202 OI SWITCH,X01 TURN ON MSG IEC703 SWITCH @ZA01681 04223202 SETERROR OI SWITCH,X80 TURN ON ERROR SWITCH 04231202 LNR R1,PL SET UP SECOND TIME LOGIC 04233202 MVI ECB,X00 ZERO OUT ECB 04235202 B BEGUN BRANCH 04235602 BADPARM LA PL,C8 SET ERROR CODE 04235702 B EXITHERE BRANCH 04235802 FINISH TM C2(PL),X02 TEST FOR UNLOAD OPTION 04240702 BZ ZEROCODE BRANCH IF NO UNLOAD 04242702 OI UCBFL2,X40 SET NOT READY BIT IN UCB 04244702 ZEROCODE SR PL,PL ZERO ERROR CODE 04245102 THISEXIT MVI SRTEDMCT,X00 RESET MOUNTING INDICATOR IN UCB 04245502 EXITHERE LA R0,C253(R0,R0) PICK UP SUBPOOL 04245602 SLL R0,C24(R0) SHIFT TO HI-ORDER BYTE 04250502 O R0,FIRST PACK SP&LV 05020000 FREEMAIN R,LV=(0),A=(RWKAREA) 05040000 LR WORKREG,PL 05060000 SVC C3 EXIT SVC 05080002 * 05100000 *** CONSTANTS 05120000 * 05140000 CHANPROG DS 0F 05160000 *CCW1 05180000 DC X'07000000' REWIND TAPE 05200000 DC X'40000001' CCW 05220002 *CCW2 05240000 DC X'01000000' WRITE LABEL 05260000 DC X'60000000' CCW 05280002 *CCW3 05300000 DC X'27000000' BACKSPACE LABEL 05320000 DC X'40000001' CCW 05340002 *CCW4 05360000 DC X'02000000' READ LABEL 05380000 DC X'00000000' CCW 05400002 COMPARE CLC 0(C1,R14),0(R4) VERIFY LABELS CAN BE READ 05440002 STANDARD DC C'VOL1' LABEL 05460002 LGL000 DC CL6'LGL000' FAKE VOLUME SERIAL NUMBER 05500000 * S20038 05502020 * WTO MACROS IN LIST FORM S20038 05504020 * S20038 05506020 MOUNTMES WTOR 'IEC701D M DDD,VOLUME TO BE LABELED ',,1,,MF=L, X05510018 ROUTCDE=(3),DESC=(2) MC01 05520018 * S20038 05521020 * CONSTANTS S20038 05522020 * S20038 05523020 * ENABLE DC X'FF' ENABLE MASK YM1084 05524002 LENGTH DC H'80' STANDARD LABEL LENGTH S20038 05525020 * S20038 05526020 LABELMES WTO 'IEC702I DDD,VOLUME LABELS CANNOT BE VERIFIED',MF=L, X05530018 ROUTCDE=(3),DESC=(4) MC01 05540018 FILEMESS WTO 'IEC703I DDD,VOLUME IS FILE PROTECTED',MF=L, X05550018 ROUTCDE=(3),DESC=(4) MC01 05560018 * S20038 05565020 ORG IGC0003I+1024 MAINTENANCE AREA FOR PGM S20038 05570020 * S20038 05575020 * WORKING STORAGE FOR TAPE-LABELING SVC. S20038 05580020 * CONTENTS-SYSTEM CONTROL BLOCKS,CHANNEL PROGRAM,INTERNAL SWITCH,S20038 05585020 * AND HOLD AREA FOR LABEL READ BACK OPERATION. S20038 05590020 * S20038 05595020 WORKAREA DSECT 05600000 FIRST DS 1F WORK AREA 05620002 DCB DS 1F DCB = 12F 05640002 DEB DS 10F DEB = 9F 05660000 DEBPTR DS 1F DEB POINTER 05680002 ECB DS 1F ECB 05700002 IOB DS 8F IOB 05720002 CCW1 DS 1D CCW 05740002 CCW2 DS D CCW 05760002 CCW3 DS D CCW 05780002 CCW4 DS D CCW 05800002 SWITCH DS CL1 SWITCH BYTE 05820002 * BIT 0 - ERROR 05840000 * BIT 1 - DUMMY HEADER 05860000 * BIT 2 - TAPE MARK 05880000 * BIT 7 - MSG IEC703 ISSUED @ZA01681 05892002 REPLY DS CL1 MUST 05900000 DS CL2 BE 05920000 FIXED DS CL80 CONTIGUOUS 05940000 DOMSAVE DC F'0' SAVEAREA FOR MSG NR @ZA13759 05950099 VARY DS 0H 05960000 * S20038 05965020 * UNIT CONTROL BLOCK - SYMBOLIC NAMES S20038 05970020 * S20038 05975020 UCB DSECT 05980000 IEFUCBOB 06000000 SRTSYSIN EQU 128 06020000 SRTSYSOT EQU 64 06040000 * S20038 06045020 * COMMUNICATION VECTOR TABLE S20038 06050020 * S20038 06055020 CVT DSECT 06060000 CVT SYS=MIN 06080000 END 06100000