//JES2PMOD JOB (SYS),'APPLY JES2PMOD',CLASS=S,MSGCLASS=X // EXEC COBUCLG //COB.SYSIN DD * 000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. JES2PMOD. 000300 AUTHOR. JAY MOSELEY. 000400 DATE-WRITTEN. SEPTEMBER 15, 2017. 000500 DATE-COMPILED. 000600 REMARKS. THE PURPOSE OF THIS PROGRAM IS TO BUILD A JOBSTREAM 000700 TO BACKUP AND THEN UPDATE JES2 START-UP PARAMETERS 000800 IN SYS1.PARMLIB(JES2PM00). THE PROGRAM WILL READ 000900 THE CURRENT JES2PM00, LOOKING FOR THE ENTRIES THAT 001000 DEFINE THE LOCAL PRINTERS (PRINTER1 AND PRINTER2) 001100 AND ALSO THE OPERATOR COMMANDS AFFECTING THESE TWO 001200 TASKS AT START-UP. THE SEQUENCE NUMBERS FOR THESE 001300 RECORDS IN THE EXISTING MEMBER WILL BE USED TO 001400 BUILD A MAINTENANCE UTILITY JOBSTREAM TO REPLACE 001500 THE RECORDS WITH NEW RECORDS WHICH WILL CONTAIN 001600 DIFFERENT PARAMETERS. THE BASIS FOR THESE CHANGES 001700 IS A SET OF EXCHANGES ON THE HERCULES' DISCUSSION 001800 FORUMS IN SEPTEMBER, 2017. THE JOBSTREAM THAT IS 001900 BUILT WILL BE SUBMITTED TO THE INTERNAL READER 002000 FOR EXECUTION AUTOMATICALLY AS SOON AS THIS 002100 PROGRAM CONCLUDES. 002200 002300 ENVIRONMENT DIVISION. 002400 CONFIGURATION SECTION. 002500 SOURCE-COMPUTER. IBM-370. 002600 OBJECT-COMPUTER. IBM-370. 002700 002800 INPUT-OUTPUT SECTION. 002900 FILE-CONTROL. 003000 003100 SELECT JOBSTREAM-FILE 003200 ASSIGN TO UT-S-SYSUT2. 003300 003400 DATA DIVISION. 003500 FILE SECTION. 003600 003700 FD JOBSTREAM-FILE 003800 LABEL RECORDS ARE STANDARD 003900 BLOCK CONTAINS 0 RECORDS 004000 RECORDING MODE IS F 004100 DATA RECORD IS JOBSTREAM-RECD. 004200 01 JOBSTREAM-RECD PIC X(80). 004300 004400 WORKING-STORAGE SECTION. 004500 004600***************************************************************** 004700* REDFINITIONS OF PARAMETER RECORDS TO IDENTIFY SEQUENCE * 004800* NUMBERS OF RECORDS TO BE MODIFIED. * 004900***************************************************************** 005000 01 WS-PARAMETER-RECD PIC X(80). 005100 01 FILLER REDEFINES WS-PARAMETER-RECD. 005200 02 WSPR-PRINTER-KEY PIC X(09). 005300 88 IS-PRINTER1-DEFINE VALUE 'PRINTER1 '. 005400 88 IS-PRINTER2-DEFINE VALUE 'PRINTER2 '. 005500 02 FILLER PIC X(63). 005600 02 WSPR-SEQUENCE PIC X(08). 005700 01 FILLER REDEFINES WS-PARAMETER-RECD. 005800 02 WSPR-SET-KEY PIC X(27). 005900 88 IS-PRINTER1-SET VALUE 006000 '$T PRT1,F=STD.,C=6,F=AUTOM '. 006100 88 IS-PRINTER2-SET VALUE 006200 '$T PRT2,F=STD.,C=6,F=AUTOM '. 006300 02 FILLER PIC X(53). 006400 01 FILLER REDEFINES WS-PARAMETER-RECD. 006500 02 WSPR-START-KEY1 PIC X(04). 006600 88 IS-VS-COMMAND VALUE '$VS,'. 006700 02 FILLER PIC X(01). 006800 02 WSPR-START-KEY2 PIC X(06). 006900 88 IS-PRINTER1-START VALUE '$SPRT1'. 007000 88 IS-PRINTER2-START VALUE '$SPRT2'. 007100 02 FILLER PIC X(69). 007200 01 FILLER REDEFINES WS-PARAMETER-RECD. 007300 02 WSPR-STDFORM-KEY PIC X(13). 007400 88 IS-STDFORM VALUE '&STDFORM=STD.'. 007500 02 FILLER REDEFINES WSPR-STDFORM-KEY. 007600 03 FILLER PIC X(09). 007700 03 WSPR-STDFORM-NAME PIC X(04). 007800 02 FILLER PIC X(67). 007900 01 PREVIOUS-SEQUENCE-NUMBER PIC X(08). 008000 008100***************************************************************** 008200* COMMUNICATION PARAMETERS FOR CALLING NCZ93205 ROUTINE. * 008300***************************************************************** 008400 01 NCZ93205-PARAMETERS. 008500 02 NCZ93205-REQUEST PIC S9(08) COMP. 008600 02 NCZ93205-OPEN PIC S9(08) COMP VALUE +0. 008700 02 NCZ93205-LOCATE PIC S9(08) COMP VALUE +4. 008800 02 NCZ93205-READ PIC S9(08) COMP VALUE +8. 008900 02 NCZ93205-CLOSE PIC S9(08) COMP VALUE +12. 009000 02 NCZ93205-MEMBER PIC X(08). 009100 02 NCZ93205-RECORD PIC X(255). 009200 02 FILLER REDEFINES NCZ93205-RECORD. 009300 03 NCZ93205-RECORD80 PIC X(80). 009400 03 FILLER PIC X(175). 009500 02 NCZ93205-DDNAME PIC X(08). 009600 009700***************************************************************** 009800* NAME OF CURRENT SYS1.PARMLIB JES2 PARAMETER MEMBER. * 009900***************************************************************** 010000 01 ACTIVE-JES2PM-MEMBER PIC X(08) VALUE 'JES2PM00'. 010100 010200***************************************************************** 010300* NAME OF SYS1.PARMLIB MEMBER TO RECEIVE BACKUP OF CURRENT * 010400* JES2 PARAMETER MEMBER. * 010500***************************************************************** 010600 01 BACKUP-JES2PM-MEMBER PIC X(08). 010700 01 FILLER REDEFINES BACKUP-JES2PM-MEMBER. 010800 02 FILLER PIC X(06). 010900 02 BJM-SEQUENCE PIC 9(02). 011000 011100***************************************************************** 011200* EOF-SYSUT1 IS SET WHEN END-OF-MEMBER IS REACHED WHILE READING * 011300* SYS1.PARMLIB(JES2PM00). * 011400***************************************************************** 011500 011600 01 END-OF-FILE-SYSUT1 PIC X(01) VALUE 'N'. 011700 88 EOF-SYSUT1 VALUE 'Y'. 011800 011900***************************************************************** 012000* NEW SET AND START COMMANDS. * 012100***************************************************************** 012200 01 VS-SET-COMMAND. 012300 02 FILLER PIC X(04) VALUE '$VS,'. 012400 02 FILLER PIC X(01) VALUE QUOTE. 012500 02 FILLER PIC X(06) VALUE '$T PRT'. 012600 02 VST-PRINTER-NUMBER PIC 9(01). 012700 02 FILLER PIC X(07) VALUE ',F=STD1'. 012800 02 FILLER PIC X(01) VALUE QUOTE. 012900 01 VS-START-COMMAND. 013000 02 FILLER PIC X(04) VALUE '$VS,'. 013100 02 FILLER PIC X(01) VALUE QUOTE. 013200 02 FILLER PIC X(05) VALUE '$SPRT'. 013300 02 VSS-PRINTER-NUMBER PIC 9(01). 013400 02 FILLER PIC X(01) VALUE QUOTE. 013500 013600***************************************************************** 013700* WORK AREA TO ASSEMBLE STRINGS (NO STRING VERB IN THIS COBOL) * 013800***************************************************************** 013900 01 STRING-WORK. 014000 02 NON-BLANK-FLAG PIC X(01). 014100 88 NON-BLANK-MOVED VALUE 'Y'. 014200 02 CARD-FROM. 014300 03 CF-CHAR OCCURS 80 TIMES 014400 INDEXED BY CF-INDEX 014500 PIC X(01). 014600 014700 02 CARD-TO. 014800 03 CT-CHAR OCCURS 80 TIMES 014900 INDEXED BY CT-INDEX 015000 PIC X(01). 015100 015200 PROCEDURE DIVISION. 015300 015400 000-INITIATE. 015500 015600 DISPLAY 'JES2PMOD: EXECUTION BEGINS'. 015700 PERFORM A000-VERIFY-DATASETS. 015800 015900 DISPLAY 'DATASET SYS1.PARMLIB VERIFIED'. 016000 DISPLAY 'ACTIVE JES2 MEMBER=' 016100 ACTIVE-JES2PM-MEMBER 016200 ' LOCATED' 016300 DISPLAY 'BACKUP JES2 MEMBER=' 016400 BACKUP-JES2PM-MEMBER 016500 ' AVAILABLE' 016600 016700 PERFORM B000-BUILD-JOBSTREAM. 016800 016900 DISPLAY 'JES2PMOD: EXECUTION CONCLUDES'. 017000 STOP RUN. 017100* =========================================== PROGRAM EXIT POINT 017200 EJECT 017300***************************************************************** 017400* THE FOLLOWING SECTION MOVES THE CONTENTS OF CARD-FROM INTO * 017500* CARD-TO UNTIL A SPACE IS ENCOUNTERED. LEADING SPACES WILL BE * 017600* MOVED UNTIL THE FIRST NON-SPACE IS ENCOUNTERED. * 017700***************************************************************** 017800 1000-MOVE SECTION. 017900 1000-BEGIN. 018000 018100 MOVE 'N' TO NON-BLANK-FLAG. 018200 018300 1000-LOOP. 018400 018500 IF CF-CHAR (CF-INDEX) EQUAL SPACE AND NON-BLANK-MOVED 018600 GO TO 1000-EXIT. 018700*____END-IF. 018800 IF CF-CHAR (CF-INDEX) NOT EQUAL SPACE 018900 MOVE 'Y' TO NON-BLANK-FLAG. 019000*____END-IF. 019100 MOVE CF-CHAR (CF-INDEX) TO CT-CHAR (CT-INDEX). 019200 SET CF-INDEX, CT-INDEX UP BY +1. 019300 GO TO 1000-LOOP. 019400 019500 1000-EXIT. 019600 EXIT. 019700* ------------------------------------------- PERFORM EXIT POINT 019800 EJECT 019900***************************************************************** 020000* THE FOLLOWING SECTION VERIFIES THE EXISTENCE AND RECORDS THE * 020100* DATASET NAMES OF ALL DATASETS(MEMBERS) THAT NEED CHANGES MADE * 020200* BY THE GENERATED JOBSTREAM. * 020300***************************************************************** 020400 A000-VERIFY-DATASETS SECTION. 020500 A000-BEGIN. 020600 020700 DISPLAY 'ATTEMPTING TO VERIFY DATASETS'. 020800 020900 MOVE NCZ93205-OPEN TO NCZ93205-REQUEST. 021000 MOVE 'SYSUT1' TO NCZ93205-DDNAME. 021100 PERFORM A900-CALL-NCZ93205. 021200 IF RETURN-CODE NOT EQUAL 0 021300 DISPLAY 'OPEN FAILED FOR SYSUT1' 021400 DISPLAY 'EXECUTION TERMINATED' 021500 STOP RUN. 021600*____END-IF. 021700 021800 MOVE NCZ93205-LOCATE TO NCZ93205-REQUEST. 021900 MOVE ACTIVE-JES2PM-MEMBER TO NCZ93205-MEMBER. 022000 PERFORM A900-CALL-NCZ93205. 022100 IF RETURN-CODE NOT EQUAL 0 022200 DISPLAY 'FAILED TO LOCATE MEMBER=' 022300 ACTIVE-JES2PM-MEMBER 022400 DISPLAY 'EXECUTION TERMINATED' 022500 STOP RUN. 022600*____END-IF. 022700 022800 MOVE ACTIVE-JES2PM-MEMBER TO BACKUP-JES2PM-MEMBER. 022900 MOVE 99 TO BJM-SEQUENCE. 023000 023100 A010-LOOP. 023200 MOVE BACKUP-JES2PM-MEMBER TO NCZ93205-MEMBER. 023300 PERFORM A900-CALL-NCZ93205. 023400 IF RETURN-CODE EQUAL 0 023500 SUBTRACT 1 FROM BJM-SEQUENCE 023600 IF BJM-SEQUENCE GREATER THAN 0 023700 GO TO A010-LOOP 023800 ELSE 023900 DISPLAY 'UNABLE TO ESTABLISH BACKUP MEMBER' 024000 DISPLAY 'EXECUTION TERMINATED'. 024100*________END-IF 024200*____END-IF. 024300 IF RETURN-CODE NOT EQUAL 4 024400 DISPLAY 'UNABLE TO ESTABLISH BACKUP MEMBER' 024500 DISPLAY 'EXECUTION TERMINATED' 024600 STOP RUN. 024700*____END-IF. 024800 024900 GO TO A999-EXIT. 025000 025100 A900-CALL-NCZ93205. 025200 025300 CALL 'NCZ93205' USING NCZ93205-REQUEST, 025400 NCZ93205-MEMBER, 025500 NCZ93205-RECORD, 025600 NCZ93205-DDNAME. 025700 025800 A900-EXIT. 025900 EXIT. 026000* ------------------------------------------- PERFORM EXIT POINT 026100 026200 A999-EXIT. 026300 EXIT. 026400* ------------------------------------------- PERFORM EXIT POINT 026500 EJECT 026600***************************************************************** 026700* THE FOLLOWING SECTION GENERATES THE JOBSTREAM. * 027000***************************************************************** 027100 B000-BUILD-JOBSTREAM SECTION. 027200 B000-BEGIN. 027300 027400 DISPLAY 'GENERATING JOBSTREAM'. 027500 027600 OPEN OUTPUT JOBSTREAM-FILE. 027700 027800 PERFORM B100-INITIATE-JOBSTREAM. 027900 028000 PERFORM B200-READ-PARAMETER-FILE 028100 THRU B209-EXIT 028200 UNTIL EOF-SYSUT1. 028300 028400 PERFORM B300-COMPLETE-JOBSTREAM. 028500 028600 CLOSE JOBSTREAM-FILE. 028700 MOVE NCZ93205-CLOSE TO NCZ93205-REQUEST. 028800 PERFORM A900-CALL-NCZ93205. 028900 IF RETURN-CODE NOT EQUAL 0 029000 DISPLAY 'CLOSE FAILED FOR SYSUT1' 029100 DISPLAY 'EXECUTION TERMINATED' 029200 STOP RUN. 029300*____END-IF. 029400 029500 GO TO B999-EXIT. 029600 029700 B100-INITIATE-JOBSTREAM. 029800 029900* JOB STATEMENT: 030000 030100 MOVE '//$JES2PM JOB (SYS),UPDATE.JES2PM00,CLASS=A,MSGCLASS=X 030200- '' TO JOBSTREAM-RECD. 030300 WRITE JOBSTREAM-RECD. 030400 030500* EXEC STATEMENT (IDCAMS STEP): 030600 030700 MOVE '//IDCAMS EXEC PGM=IDCAMS,REGION=1024K' 030800 TO JOBSTREAM-RECD. 030900 WRITE JOBSTREAM-RECD. 031000 031100* SYSPRINT DD STATMENT: 031200 031300 MOVE '//SYSPRINT DD SYSOUT=*' 031400 TO JOBSTREAM-RECD. 031500 WRITE JOBSTREAM-RECD. 031600 031700* SYSIN DD STATEMENT: 031800 031900 MOVE '//SYSIN DD *' 032000 TO JOBSTREAM-RECD. 032100 WRITE JOBSTREAM-RECD. 032200 032300* BLANK SEPARATOR CARD: 032400 032500 MOVE SPACES TO JOBSTREAM-RECD. 032600 WRITE JOBSTREAM-RECD. 032700 032800* IDCAMS CONTROL STATEMENTS WRITTEN TO INSTREAM SYSIN DD: 032900 033000 MOVE ' REPRO INDATASET (SYS1.PARMLIB(JES2PM00)) -' 033100 TO JOBSTREAM-RECD. 033200 WRITE JOBSTREAM-RECD. 033300 MOVE ' OUTDATASET (SYS1.PARMLIB(' 033400 TO CARD-TO. 033500 SET CT-INDEX TO +34. 033600 MOVE BACKUP-JES2PM-MEMBER TO CARD-FROM. 033700 SET CF-INDEX TO +1. 033800 PERFORM 1000-MOVE. 033900 MOVE '))' TO CARD-FROM. 034000 SET CF-INDEX TO +1. 034100 PERFORM 1000-MOVE. 034200 WRITE JOBSTREAM-RECD FROM CARD-TO. 034300 034400* BLANK SEPARATOR CARD: 034500 034600 MOVE SPACES TO JOBSTREAM-RECD. 034700 WRITE JOBSTREAM-RECD. 034800 034900* END OF SYSIN DATA (IDCAMS STEP): 035000 035100 MOVE '/*' TO JOBSTREAM-RECD. 035200 WRITE JOBSTREAM-RECD. 035300 035400* EXEC STATEMENT (IEBUPDTE STEP): 035500 035600 MOVE '//UPDTE EXEC PGM=IEBUPDTE,REGION=1024K' 035700 TO JOBSTREAM-RECD. 035800 WRITE JOBSTREAM-RECD. 035900 036000* SYSPRINT DD STATMENT: 036100 036200 MOVE '//SYSPRINT DD SYSOUT=*' 036300 TO JOBSTREAM-RECD. 036400 WRITE JOBSTREAM-RECD. 036500 036600* SYSUT1 DD STATEMENT: 036700 036800 MOVE '//SYSUT1 DD DSN=SYS1.PARMLIB,DISP=OLD' 036900 TO JOBSTREAM-RECD. 037000 WRITE JOBSTREAM-RECD. 037100 037200* SYSUT2 DD STATEMENT: 037300 037400 MOVE '//SYSUT2 DD DSN=SYS1.PARMLIB,DISP=OLD' 037500 TO JOBSTREAM-RECD. 037600 WRITE JOBSTREAM-RECD. 037700 037800* SYSIN DD STATEMENT: 037900 038000 MOVE '//SYSIN DD *' 038100 TO JOBSTREAM-RECD. 038200 WRITE JOBSTREAM-RECD. 038300 038400* REPLACE STATEMENT: 038500 038600 MOVE './ REPL NAME=JES2PM00,LIST=ALL' 038700 TO JOBSTREAM-RECD. 038800 WRITE JOBSTREAM-RECD. 038900 039000* RESEQUENCE STATEMENT: 039100 039200 MOVE './ NUMBER NEW1=10,INCR=10' 039300 TO JOBSTREAM-RECD. 039400 WRITE JOBSTREAM-RECD. 039500 039600 B199-EXIT. 039700 EXIT. 039800* ------------------------------------------- PERFORM EXIT POINT 039900 040000 B200-READ-PARAMETER-FILE. 040100 040200 MOVE NCZ93205-READ TO NCZ93205-REQUEST. 040300 PERFORM A900-CALL-NCZ93205. 040400 IF RETURN-CODE EQUAL 4 040500 MOVE 'Y' TO END-OF-FILE-SYSUT1 040600 GO TO B209-EXIT. 040700*____END-IF. 040800 040900 IF RETURN-CODE NOT EQUAL 0 041000 DISPLAY 'UNEXPECTED ERROR FROM NCZ93205' 041100 DISPLAY 'EXECUTION TERMINATED' 041200 STOP RUN. 041300*____END-IF. 041400 041500 MOVE NCZ93205-RECORD80 TO WS-PARAMETER-RECD. 041600 041700 IF IS-PRINTER1-DEFINE 041800 PERFORM B210-NEW-PRINTER1-DEFINE 041900 GO TO B209-EXIT. 042000*____END-IF. 042100 042200 IF IS-PRINTER2-DEFINE 042300 PERFORM B220-NEW-PRINTER2-DEFINE 042400 GO TO B209-EXIT. 042500*____END-IF. 042600 042700 IF IS-PRINTER1-SET OR 042800 IS-PRINTER2-SET 042900 GO TO B209-EXIT. 043000*____END-IF. 043100 043200 IF IS-VS-COMMAND AND 043300 IS-PRINTER1-START 043400 GO TO B209-EXIT. 043500*____END-IF. 043600 043700 IF IS-VS-COMMAND AND 043800 IS-PRINTER2-START 043900 PERFORM B230-NEW-PRINTER1-SET 044000 PERFORM B240-NEW-PRINTER2-SET 044100 PERFORM B250-NEW-PRINTER1-START 044200 PERFORM B260-NEW-PRINTER2-START 044300 GO TO B209-EXIT. 044400*____END-IF. 044500 044600 IF IS-STDFORM 044700 MOVE 'STD1' TO WSPR-STDFORM-NAME. 044800*____END-IF. 044900 045000 MOVE SPACES TO WSPR-SEQUENCE. 045100 WRITE JOBSTREAM-RECD FROM WS-PARAMETER-RECD. 045200 045300 B209-EXIT. 045400 EXIT. 045500* ------------------------------------------- PERFORM EXIT POINT 045600 045700 B210-NEW-PRINTER1-DEFINE. 045800 045900 MOVE 'PRINTER1 UNIT=00E,CLASS=A,FCB=6,FORMS=STD1,SEP,AU 046000- 'TO, C' TO JOBSTREAM-RECD. 046100 WRITE JOBSTREAM-RECD. 046200 MOVE ' NOPAUSE,START 046300- ' 1403 ' TO JOBSTREAM-RECD. 046400 WRITE JOBSTREAM-RECD. 046500 046600 B219-EXIT. 046700 EXIT. 046800* ------------------------------------------- PERFORM EXIT POINT 046900 047000 B220-NEW-PRINTER2-DEFINE. 047100 047200 MOVE 'PRINTER2 UNIT=00F,CLASS=M,FCB=6,FORMS=STD1,SEP,AU 047300- 'TO, C' TO JOBSTREAM-RECD. 047400 WRITE JOBSTREAM-RECD. 047500 MOVE ' NOPAUSE,UCS=TN,START 047600- ' 3211 ' TO JOBSTREAM-RECD. 047700 WRITE JOBSTREAM-RECD. 047800 047900 B229-EXIT. 048000 EXIT. 048100* ------------------------------------------- PERFORM EXIT POINT 048200 048300 B230-NEW-PRINTER1-SET. 048400 048500 MOVE 1 TO VST-PRINTER-NUMBER. 048600 MOVE VS-SET-COMMAND TO JOBSTREAM-RECD. 048700 WRITE JOBSTREAM-RECD. 048800 048900 B239-EXIT. 049000 EXIT. 049100* ------------------------------------------- PERFORM EXIT POINT 049200 049300 B240-NEW-PRINTER2-SET. 049400 049500 MOVE 2 TO VST-PRINTER-NUMBER. 049600 MOVE VS-SET-COMMAND TO JOBSTREAM-RECD. 049700 WRITE JOBSTREAM-RECD. 049800 049900 B249-EXIT. 050000 EXIT. 050100* ------------------------------------------- PERFORM EXIT POINT 050200 050300 B250-NEW-PRINTER1-START. 050400 050500 MOVE 1 TO VSS-PRINTER-NUMBER. 050600 MOVE VS-START-COMMAND TO JOBSTREAM-RECD. 050700 WRITE JOBSTREAM-RECD. 050800 050900 B259-EXIT. 051000 EXIT. 051100* ------------------------------------------- PERFORM EXIT POINT 051200 051300 B260-NEW-PRINTER2-START. 051400 051500 MOVE 2 TO VSS-PRINTER-NUMBER. 051600 MOVE VS-START-COMMAND TO JOBSTREAM-RECD. 051700 WRITE JOBSTREAM-RECD. 051800 051900 B269-EXIT. 052000 EXIT. 052100* ------------------------------------------- PERFORM EXIT POINT 052200 052300 B299-EXIT. 052400 EXIT. 052500* ------------------------------------------- PERFORM EXIT POINT 052600 052700 B300-COMPLETE-JOBSTREAM. 052800 052900* ENDUP STATEMENT: 053000 053100 MOVE './ ENDUP' 053200 TO JOBSTREAM-RECD. 053300 WRITE JOBSTREAM-RECD. 053400 053500* END OF SYSIN DATA (IEBUPDTE STEP): 053600 053700 MOVE '/*' TO JOBSTREAM-RECD. 053800 WRITE JOBSTREAM-RECD. 053900 054000* END OF JOB: 054100 054200 MOVE '//' TO JOBSTREAM-RECD. 054300 WRITE JOBSTREAM-RECD. 054400 054500 B399-EXIT. 054600 EXIT. 054700* ------------------------------------------- PERFORM EXIT POINT 054800 054900 B999-EXIT. 055000 EXIT. 055100* ------------------------------------------- PERFORM EXIT POINT 055200 EJECT 055300 //LKED.SYSLIB DD // DD DSN=SYSC.LINKLIB,DISP=SHR //GO.SYSOUT DD SYSOUT=* //GO.SYSUT1 DD DSN=SYS1.PARMLIB,DISP=OLD //GO.SYSUT2 DD SYSOUT=(A,INTRDR) //