*********************************************************************** 00020000 * * 00040000 * NAME ***** ***** * * **** ***** **** ***** * 00060000 * * * * ** ** * * * * * * * * 00080000 * * * * * * * **** ***** **** **** * 00100000 * * * * * * * * * * * * * 00120000 * ***** ***** * * * * * * * ***** * 00140000 * * 00160000 *********************************************************************** 00180000 * * 00200000 * FUNCTION/OPERATION * 00220000 * * 00240000 * THIS IS THE ROOT SEGMENT FOR IEBCOMPR, THE DATA SET UTILITY THAT* 00260000 * COMPARES TWO SEQUENTIAL OR TWO PARTITIONED DATA SETS. ITS MAIN * 00280000 * FUNCTIONS ARE THE FOLLOWING: * 00300000 * * 00320000 * 1. TO SET ITS OWN ADDRESSABILITY * 00340000 * 2. TO SET THE COMMUNICATION REGION'S ADDRESSABILITY * 00360000 * 3. TO INTERRAGATE THE DDNAME LIST AND SET THE APPROPRIATE * 00380000 * SWITHCES * 00400000 * 4. TO OPEN THE SYSPRINT DATA SET * 00420000 * 5. TO CONTROL BRANCHING TO THE CONTROL CARD ANALYZER, AND THE * 00440000 * MAIN PROCESSING ROUTINE * 00460000 * 6. TO PRINT ANY REQUEST ASKED BY EITHER OF THE TWO OVERLAY * 00480000 * SEGMENTS * 00500000 * * 00520000 *********************************************************************** 00540000 * * 00560000 * ENTRY POINTS * 00580000 * * 00600000 * 1. 'COMPARE' THIS IS THE ENTRY TO THE ROOT SEGMENT FROM ANY * 00620000 * CALLING PROGRAM. * 00640000 * * 00660000 * 2. 'JPRINTRT' ENTRY IS MADE HERE WHENEVER THE ANALYZER OR MAIN * 00680000 * PROCESSOR WANTS A STANDARD DIAGNOSTIC MESSAGE * 00700000 * PRINTED. * 00720000 * * 00740000 * 3. 'ZZPR' ENTRY IS MADE HERE WHENEVER THE ANALYZER OR MAIN * 00760000 * PROCESSOR WANTS ANY DATA OR ANY INFORMATIONAL * 00780000 * MESSAGE PRINTED. * 00800000 * * 00820000 *********************************************************************** 00840000 * * 00860000 * INPUT * 00880000 * * 00900000 * INPUT TO THIS MODULE IS ONE OF THE FOLLOWING: * 00920000 * * 00940000 * 1. UPON ENTRY FROM THE CALLING PROGRAM THE DDNAME LIST IS * 00960000 * INPUT INFORMATION. * 00980000 * 2. WHEN PRINTING REQUESTS FROM EITHER THE ANALYZER OR MAIN * 01000000 * PROCESSOR, THE ADDRESS OF THE MESSAGE AND ITS LENGTH * 01020000 * ARE INPUT. 01040000 * * 01060000 *********************************************************************** 01080000 EJECT 01100000 *********************************************************************** 01120000 * * 01140000 * OUTPUT * 01160000 * * 01180000 * THE OUTPUT OF THIS MODULE CONSISTS OF DIAGNOSTIC MESSAGES, * 01200000 * INFORMATIONAL MESSAGES, AND LOGICAL RECORDS WHICH WERE EITHER * 01220000 * MISCOMPARES OR EXTRA RECORDS ON A PARTICULAR DATA SET. IF A PDS * 01240000 * IS BEING COMPARED, THERE IS A POSSIBILITY THAT USER DATA FROM * 01260000 * EITHER PDS DIRECTORY WILL ALSO BE PRINTED. * 01280000 * * 01300000 *********************************************************************** 01320000 * * 01340000 * EXTERNAL ROUTINES * 01360000 * * 01380000 * FOR THIS PARTICULAR CSECT THERE ARE ONLY TWO EXTERNAL ROUTINES, * 01400000 * THE CONTROL CARD ANALYZER, ANALY, AND THE MAIN PROCESSOR, MAIN. * 01420000 * EACH OF THESE IS AN OVERLAY SEGMENT. * 01440000 * * 01460000 *********************************************************************** 01480000 *********************************************************************** 01500000 * * 01520000 * EXITS * 01540000 * * 01560000 * THERE IS ONLY ONE ACTUAL EXIT TAKEN FROM THE ROOT SEGMENT, THAT * 01580000 * BEING A BRANCH TO THE MAIN PROCESSOR. THE MAIN PROCESSOR WILL * 01600000 * BRANCH TO THE ROOT SEGMENT'S PRINT ROUTINE, HOWEVER RETURN IS * 01620000 * ALWAYS GIVEN BACK TO THE MAIN PROCESSOR AND IT IS THE MAIN * 01640000 * PROCESSOR THAT REUTURNS CONTROL TO THE CALLING PROGRAM. * 01660000 * * 01680000 *********************************************************************** 01700000 * * 01720000 * TABLES/WORK AREAS * 01740000 * * 01760000 * THE ONLY TABLE SET UP BY THE ROOT SEGMENT IS THE COMMUNICATION * 01780000 * REGION, WHILE THE ONLY WORK AREA IS THE PRINTOUT AREA. * 01800000 * * 01820000 *********************************************************************** 01840000 * * 01860000 * ATTRIBUTES * 01880000 * * 01900000 * NON-REENTRANT AND NON-REUSEABLE * 01920000 * * 01940000 *********************************************************************** 01960000 EJECT 01980000 COMPARE CSECT 02000000 * 030980,032800-033000 A27718 02001019 *1000031000,052400-052600,058400-058600 BS0H 02002017 * REGISTER ASSIGNMENTS 02004017 R0 EQU 0 02004617 R1 EQU 1 02005217 R2 EQU 2 A27718 02005619 R4 EQU 4 BS0H 02006017 R5 EQU 5 BS0H 02008017 R6 EQU 6 BS0H 02010017 R7 EQU 7 BS0H 02012017 RETREG EQU 14 BS0H 02014017 SAVE (14,12) 02020000 BALR 11,0 02040000 USING BEGIN,11 02060000 BEGIN STM 13,14,SAVE1315 02080000 LA 10,COMMON LOAD ADDRESS OF COMMUNICATION TABLE 02100000 LA 13,SAVEREGS 02120000 MVI ZZCTRL,X'00' MOVE CONTROL CHARACTER TO AREA 02140000 SPACE 3 02160000 *********************************************************************** 02180000 * ROUTINE TO PROCESS DDNAME LIST 02200000 *********************************************************************** 02220000 TM 0(1),X'80' IS THERE A DDNAME LIST 02240000 BO LLEORI BRANCH - NO DDLIST 02260000 L 5,4(1) LOAD ADDRESS OF LIST INTO REG 5 02280000 LH 6,0(5) PLACE LENGTH OF LIST INTO REG 6 02300000 C 6,FORTY IS LENGTH OF LIST LESS THAN 40 02320000 BL LLHEAD YES-THEN NOT OVERRIDING ANYTHING 02340000 CLI 34(5),X'00' IS THERE A DDNAME IN SLOT (SYSIN) 02360000 BE LLSEC BRANCH - NO DDNAME IN SLOT 02380000 MVC DDSYSIN(8),34(5) MOVE DDNAME INTO COMMUNICATION TABLE 02400000 LLSEC C 6,FOREIGHT 02420000 BL LLHEAD 02440000 CLI 42(5),X'00' IS THERE A DDNAME IN SLOT (SYSPRINT) 02460000 BE LLTHR NO - BRANCH 02480000 LA 7,PRINTOUT MOVE DDNAME INTO OUTPUT DCB 02500000 MVC DDNAME(8,7),42(5) 02520000 LLTHR C 6,SIXFOUR 02540000 BL LLHEAD 02560000 CLI 58(5),X'00' IS THERE A DDNAME IN SLOT (SYSUT1) 02580000 BE LLFOUR NO-BRANCH 02600000 MVC DDSUBNAM(8),58(5) MOVE DDNAME INTO COMMUNICATION TABLE 02620000 LLFOUR C 6,SEVTWO 02640000 BL LLHEAD 02660000 CLI 66(5),X'00' IS THERE A DDNAME IN SLOT (SYSUT2) 02680000 BE LLHEAD NO-BRANCH 02700000 MVC DDSUBNAM+8(8),66(5) MOVE DDNAME INTO COMMUN TABLE 02720000 ********************************************************************** 02740000 * ROUTINE TO PROCESS INITIAL USER PAGE NUMBER 02760000 *********************************************************************** 02780000 LLHEAD TM 4(1),X'80' IS THERE A USER PAGE NUMBER 02800000 BO LLEORI NO-BRANCH 02820000 L 5,8(1) LOAD ADDRESS OF PAGE NO. INTO REG 5 02840000 LH 7,0(5) PLACE LENGTH OF PAGE NO. IN REG 7 02860000 LA 6,PRHEAD+PAGEPOS MOVE INITIAL PAGE 02880000 SR 6,7 NUMBER INTO PROPER 02900000 SH 7,ONE POSITION 02920000 STC 7,LLMOVPAG+1 IN 02940000 LLMOVPAG MVC 0(1,6),2(5) HEADER 02960000 ********************************************************************** 02980000 LLEORI ST 1,SAVEREG1 03000000 OPEN (PRINTOUT,OUTPUT) OPEN FOR PRINTER 03020000 LA 1,PRINTOUT GET DCB ADRESS 03040000 TM 48(1),X'10' WAS OPEN ACCOMPLISHED 03060000 BZ FORGETIT GO ABORT JOB 03080000 TM DFLG,X'10' CHECK FOR BLKSIZE ERROR BS0H 03086017 BC 8,CONTON IF NONE -- BS0H 03092017 CLOSEDCB CLOSE (PRINTOUT) A27718 03098019 B FORGETIT SET RETURN CODE BS0H 03104017 CONTON LA 0,HEADER PRINT HEADER 0=LENGTH OF MESSAGE BS0H 03110017 LA 1,PRHEAD 1=ADDR OF MESSAGE 03120000 BAL 14,ZZPR 03140000 L 1,SAVEREG1 03160000 GOTOANAL L 15,ADDANALY GO TO CARD SCAN ROUTINE 03180000 BALR 14,15 03200000 GOTOMAIN L 15,ADDMAIN GO TO MAIN PROCESSOR 03220000 BR 15 03240000 FORGETIT LA 15,12 PUT RETURN CODE OF '0C' IN REG15 03260000 LM 13,14,SAVE1315 03262019 RETURN (2,12) RETURN TO CALLING PROGRAM 03264019 *** **** 03266019 ** EXIT TAKEN WHEN PERMANENT I/O ERROR OCCURRED ON SYSPRINT *** 03268019 SYNADEX SYNADAF ACSMETH=QSAM GET I/O ERROR STATUS A27718 03270019 MVC WTOLF1+23(26),49(R1) MOVE I/O ERROR STATUS A27718 03271019 MVC WTOLF2+12(53),75(R1) INTO LIST FORM WTO A27718 03272019 SYNADRLS RELEASE BUFFER GOT BY SYNADAF A27718 03273019 LA R1,WTOLF1 A27718 03274019 WTO MF=(E,(1)) A27718 03276019 LA R1,WTOLF2 A27718 03278019 WTO MF=(E,(1)) A27718 03280019 B CLOSEDCB A27718 03284019 WTOLF1 WTO 'IEB267I I/O ERROR ', A27718*03288019 MF=L,ROUTCDE=11,DESC=7 A27718 03290019 WTOLF2 WTO 'IEB267I *03292019 ',MF=L,ROUTCDE=11,DESC=7 A27718 03294019 *******************************************************************BS0H 03301017 * THIS IS THE DCB EXIT ROUTINE BS0H 03302017 *******************************************************************BS0H 03303017 PRINTEXT LA R7,PRINTOUT BS0H 03304017 USING IHADCB,R7 BS0H 03305017 LH R5,DCBBLKSI LOAD BLKSIZE BS0H 03306017 LTR R5,R5 BS0H 03307017 BC 8,PRTBLK IF NONE SPECIFIED -- BS0H 03308017 SR R4,R4 BS0H 03309017 LA R6,121 BS0H 03310017 DR R4,R6 CHECK FOR MODULAR BLKSIZE BS0H 03311017 LTR R4,R4 BS0H 03312017 BCR 8,RETREG RETURN TO CALLER - OPEN BS0H 03313017 MVI DFLG,X'10' SET BLKSIZE ERROR FLAG BS0H 03314017 MVC DCBBLKSI(2),DCBLRECL MOVE LRECL TO BLKSIZE BS0H 03315017 RETURN 03316017 PRTBLK MVI DCBBLKSI+1,X'79' INSERT BLKSIZE BS0H 03317017 DROP R7 BS0H 03318017 RETURN 03319017 ********************************************************************** 03320000 *** CONSTANT AREA 03340000 DS 0D BS0H 03344017 OPT DC X'85' BS0H 03348017 DC AL3(PRINTEXT) BS0H 03352017 DFLG DC X'00' BS0H 03356017 SAVEREG1 DC F'0' 03360000 ONE DC H'1' 03380000 TWO DC H'2' 03400000 EIGHT DC H'8' 03420000 TWELVE DC H'12' 03440000 SIXTEEN DC H'16' 03460000 FORTY DC F'40' 03480000 FOREIGHT DC F'48' 03500000 SIXFOUR DC F'64' 03520000 SEVTWO DC F'72' 03540000 PRHEAD DC CL32' ' 03560000 DC CL32' COMPARE UTILITY ' 03580000 DC CL32' ' 03600000 DC CL24' PAGE 0001' 03620000 DC X'32' 03640000 PAGEPOS EQU 106 03660000 ADDANALY DC V(ANALY) ADDRESS OF CARD SCAN ROUTINE 03680000 ADDMAIN DC V(MAIN) ADDRESS OF MAIN PROCESSOR ROUTINE 03700000 ********************************************************************** 03720000 ENTRY JPRINTRT 03740000 USING *,15 03760000 JPRINTRT L 0,ADDRMESS 03780000 CH R1,THIRTY IS MESSAGE NO. EQUAL 30 UV0H 03786017 BH MSEVEN BRANCH IF HIGH UV0H 03792017 MH 1,HFORTY 03800000 AR 1,0 03820000 LA 0,39 03840000 B ZZPR 03860000 MSEVEN SH R1,THIRTY UV0H 03861017 MH R1,HSEVEN UV0H 03862017 SH R1,HSEVEN UV0H 03863017 L R0,ADMSG31 UV0H 03864017 AR R1,R0 UV0H 03865017 LA R0,71 UV0H 03866017 B ZZPR BRANCH UV0H 03867017 THIRTY DC H'30' UV0H 03868017 HSEVEN DC H'72' UV0H 03871017 EXTRN MSG31 UV0H 03874017 ADMSG31 DC A(MSG31) UV0H 03877017 HFORTY DC H'40' 03880000 EXTRN MESSLIST 03900000 ADDRMESS DC A(MESSLIST) 03920000 DROP 15 03940000 ********************************************************************* 03960000 ** THIS IS THE GENERALIZED MESSAGE WRITER WHICH INCLUDES THE 03980000 ** FACILITYS TO PRINT A HEADER ON EACH PAGE WITH ASSENDING PAGE 04000000 ** NUMBERS. THE LINKAGE IS AS FOLLOWS --- REG0=LENGTH OF MESSAGE 04020000 ** REG 1= ADDR OF MESSAGE 04040000 ** BAL 14,ZZPR 04060000 ********************************************************************* 04080000 ENTRY ZZPR 04100000 ZZPR BALR 15,0 SET ADDRESSABILITY FOR NEXT INST 04120000 USING *,15 04140000 STM 14,3,ZZSAVE SAVE REGISTERS 04160000 DROP 15 04180000 BALR 2,0 04200000 USING *,2 04220000 TM ZZSW,X'02' SHOULD WE SET UP HEADER 04240000 BO ZZHEAD YES 04260000 TM ZZSW,X'01' SHOULD WE SKIP TO NEXT PAGE 04280000 BO ZZSKIP YES 04300000 CLC ZZLINES(1),ZZLINCNT IS THIS END OF PAGE 04320000 BL FULLPAGE YES 04340000 B ZZCLEAR CLEAR PRINT BUFFER AND PRINT 04360000 PRNTRTRN LM 14,3,ZZSAVE RESTORE REGISTERS 04380000 BR 14 RETURN 04400000 ZZHEAD MVC ZZHDSAVE(121),0(1) MOVE HEADER AND LINE COUNT TO 04420000 * SAVE AREA 04440000 BAL 3,ZZPG GO TO ADD ONE TO PAGE NUMBER 04460000 * AND PRINT HEADER 04480000 B PRNTRTRN 04500000 * 04520000 ZZSKIP CLI ZZCTRL,C'-' IS NEXT PRINT A TRIPLE SPACE 04540000 BE PRNTRTRN YES RETURN WITHOUT PRINT 04560000 BAL 3,ZZPG GO TO PRINT HEADER 04580000 B PRNTRTRN 04600000 FULLPAGE BAL 3,ZZPG GO PRINT HEADER 04620000 B ZZCLEAR GO PRINT LINE 04640000 * THIS ROUTINE ADDS ONE TO PAGE NO. AND 04660000 * PRINTS HEAD SET CONTROL CHAR FOR NEXT PRNT 04680000 ZZPG TM ZZCTRL,X'FF' 04700000 BZ ZZNOADD 04720000 PACK ZZCONVRT(8),ZZPGNO(3) ADD ONE 04740000 CVB 15,ZZCONVRT TO 04760000 LA 15,1(15) PAGE 04780000 CVD 15,ZZCONVRT NUMBER 04800000 UNPK ZZPGNO(3),ZZCONVRT(8) IN 04820000 OI ZZPGNO+2,X'F0' HEADER 04840000 ZZNOADD MVI ZZCTRL,C'1' SET SKIP TO 1 CONTROL 04860000 MVI ZZLINCNT,X'04' INITIALIZE LINE COUNT TO 4 04880000 MVC ZZPRINT(120),ZZHDSAVE MOVE HEADER INTO PRINT BUFFER 04900000 ST 3,SAVE3 SAVE REGISTER 3 04920000 BAL 3,ZZWRITE GO TO WRITE HEADER 04940000 MVI ZZCTRL,C'-' SET CONTROL TO TRIPLE SPACE 04960000 L 3,SAVE3 04980000 BR 3 05000000 ZZCLEAR IC 14,ZZLINCNT THIS ROUTINE WILL 05020000 LA 14,1(14) ADD ONE 05040000 STC 14,ZZLINCNT STORE NEW LINE COUNT 05060000 MVI ZZPRINT,C' ' 05080000 MVC ZZPRINT+1(119),ZZPRINT CLEAR PRINT BUFFER 05100000 LM 14,15,ZZSAVE+8 TO BLANKS 05120000 EX 14,ZZMOVE MOVE LINE TO BE PRINTED 05140000 BAL 3,ZZWRITE INTO BUFFER 05160000 MVI ZZCTRL,C' ' SET CONTROL CHAR FOR NEXT 05180000 B PRNTRTRN PRINT LINE AND RETURN 05200000 ZZMOVE MVC ZZPRINT(1),0(15) MOVE MESSAGE TO PRINT BUFFER 05220000 ZZWRITE PUT ZZDCB,ZZCTRL WRITE MESSAGE BS0H 05250017 BR 3 05280000 DS 0D 05300000 ZZSAVE DS 10X 05320000 ZZSW DS 10X 05340000 DS 4X 05360000 SAVE3 DS 4X 05380000 ZZCTRL DS 1X 05400000 ZZPRINT DS 121X 05420000 ZZHDSAVE DS 120X 05440000 ZZCONVRT EQU ZZSAVE+32 05460000 ZZLINES DS 1X 05480000 ZZLINCNT DS 1X 05500000 ZZDECB DS 24X 05520000 SKIP EQU 256 05540000 HEADER EQU 512 05560000 ZZPGNO EQU ZZHDSAVE+103 05580000 ********************************************************************* 05600000 *** COMMON COMMUNICATION AREA 05620000 SAVE1315 DS 3F SAVE AREA FOR REGS 13-15 05640000 SAVEREGS DS 18F REGISTER SAVE AREA 05660000 PARALIST DS 8F AREA FOR EXITS PARAMETER LIST 05680000 DDSYSIN DC 2F'0' DDNAME=SYSIN AREA 05700000 DDSUBNAM DC 2F'0' DDNAME AREA 1-SYSUT1 05720000 DC 2F'0' DDNAME AREA 2-SYSUT2 05740000 HICONCOD DC H'0' 05760000 CCADSORG DC X'00' PO OR PS SWITCH (01=PO) 05780000 ABORTSW DC X'00' ABORT SWITCH 05800000 LABEL DC X'00' SET TO X'00' IF DATA=YES UL0H 05800517 * X'01' IF DATA=NO UL0H 05801017 * X'10' IF DATA=ONLY UL0H 05801517 * X'20' IF DATA=ALL UL0H 05802017 UEXIT DC X'00' SET TO 01 IF OPEN TOOK USER LAB EXIT UL0H 05802517 UHRADR DC F'0' CONTAIN ADDR. OF INHDR UL0H 05803017 UTRADR DC F'0' CONTAIN ADDR. OF INTLR UL0H 05803517 INHD1 DC F'0' HAS ADDR. OF SYSUT1 HD LAB SAVE AREA UL0H 05804017 INHD2 DC F'0' HAS ADDR. OF SYSUT2 HD LAB SAVE AREA UL0H 05804517 INHDCT1 DC F'0' CONT. NO. OF HEADER LABELS FOR SYSUT1UL0H 05805017 INHDCT2 DC F'0' CONT. NO. OF HEADER LABELS FOR SYSUT2UL0H 05805517 INTL1 DC F'0' HAS ADDR. OF SYSUT1 TL LAB SAVE AREA UL0H 05806017 INTL2 DC F'0' HAS ADDR. OF SYSUT2 TL LAB SAVE AREA UL0H 05806517 INTLCT1 DC F'0' CONT. NO. OF TRAILER LABEL FOR SYSUT1UL0H 05807017 INTLCT2 DC F'0' CONT. NO. OF TRAILER LABEL FOR SYSUT2UL0H 05807517 BUFF1 DC F'0' CONTAIN ADDR. OF READ AREA-DS1 VS0H 05808017 BUFF2 DC F'0' CONTAIN ADDR. OF READ AREA-DS2 VS0H 05808517 LBUFF1 DC F'0' LENGTH OF BUFFER FOR SYSUT1 RCD PROC VS0H 05809017 LBUFF2 DC F'0' LENGTH OF BUFFER FOR SYSUT2 RCD PROC VS0H 05809517 LORECO DC F'0' TOTAL LOGICAL RECORD COUNTER VS0H 05810017 RECLTH DC H'0' LOGICAL RECORD LENGTH-DS1 VS0H 05810517 RECLH2 DC H'0' LOGICAL RECORD LENGTH-DS2 VS0H 05811017 DSET1 DC F'0' ADDRS. OF SYSUT1 DCB IN IEBCQSAM VS0H 05811517 DSET2 DC F'0' ADDRS. OF SYSUT2 DCB IN IEBCQSAM VS0H 05812017 INPUTLOC DC F'0' ADDR. OF INPUT BUFFER FOR BLPRT RT VS0H 05812517 NOEXTSW DC X'00' NO EXIT TO USER LAB RTN IF SET TO 01 UL0H 05813017 TERMSW DC X'00' TERM. AFTER LAB. PROC. IF SET TO 01 UL0H 05813517 EXIT1SW DC X'00' SET TO 01 IF THERE IS AN USER INHDR UL0H 05814017 EXIT3SW DC X'00' SET TO 01 IF THERE IS AN USER INTLR UL0H 05814517 VSSWT DC X'00' SET TO 01 IF BSAM USED TO PROC VS RCDVS0H 05815017 * SET TO 02 IF QSAM USED TO PROC VS RCDVS0H 05815517 NOLB DC X'00' SET TO 01 IF NO USER LABEL ON SYSUT1 UL0H 05816017 * SET TO 02 IF NO USER LABEL ON SYSUT2 UL0H 05816517 LABSW DC X'00' SET TO 01; SYSUT1 HEADER LABEL PROC UL0H 05817017 * SET TO 02; SYSUT2 HEADER LABEL PROC UL0H 05817517 * SET TO 04; SYSUT2 TRAILER LABEL PROC UL0H 05818017 * SET TO 08; SYSUT2 TRAILER LABEL PROC UL0H 05818517 *********************************************************************** 05820000 PRINTOUT DCB DSORG=PS,MACRF=(PM),DDNAME=SYSPRINT, BS0H*05840017 LRECL=121, A35461*05845020 SYNAD=SYNADEX, A27718*05850019 RECFM=FBA,EXLST=OPT,DEVD=DA BS0H 05860017 ********************************************************************* 05880000 COMMON EQU SAVE1315 05900000 ZZDCB EQU PRINTOUT 05920000 DCBD DSORG=PS 05940000 DDNAME EQU DCBDDNAM-IHADCB 05960000 END COMPARE 05980000