//COBJOB JOB (COBOLPROG),'ACCTID',NOTIFY=ACCTID, // CLASS=A,MSGLEVEL=(1,1),TIME=1,MSGCLASS=A //STEP1 EXEC PROC=IGYWCLG //COBOL.SYSIN DD * IDENTIFICATION DIVISION. PROGRAM-ID. COBTEST. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CARD-IN ASSIGN TO UT-S-READER. SELECT DISK-FILE1 ASSIGN TO UT-S-DISKFL1. DATA DIVISION. FILE SECTION. FD DISK-FILE1 LABEL RECORDS ARE STANDARD RECORDING F BLOCK CONTAINS 0 RECORDS. 01 DSK-RCD1. 02 FILLER PIC X(80). FD CARD-IN LABEL RECORDS OMITTED RECORDING F. 01 CRD-REC. 02 CRD-NAME PIC X(30). 02 FILLER PIC X(23). 02 CRD-U-ID PIC X(7). 02 FILLER PIC X. 02 CRD-PASSW PIC X(6). 02 FILLER PIC X(13). WORKING-STORAGE SECTION. 01 EOF PIC X VALUE 'N'. 01 HOLD-INST. 02 CRD-CRSE PIC X(30). 02 FILLER PIC X(23). 02 CRD-INST-ID PIC X(7). 02 FILLER PIC X. 02 CRD-PWD PIC X(6). 02 FILLER PIC X(13). 01 OUTPUT-INST. 02 CRD-OUT-ID PIC X(7). 02 FILLER PIC X(2) VALUE SPACES. 02 CRD-OUT-PWD PIC X(6). 02 FILLER PIC X(65) VALUE SPACES. PROCEDURE DIVISION. OPEN INPUT CARD-IN OUTPUT DISK-FILE1 PERFORM 2000-RD-CRD-RT PERFORM 1000-PROCESS-IT UNTIL EOF = 'Y' CLOSE CARD-IN DISK-FILE1 STOP RUN. 2000-RD-CRD-RT. READ CARD-IN INTO HOLD-INST AT END MOVE 'Y' TO EOF. 1000-PROCESS-IT. MOVE CRD-INST-ID TO CRD-OUT-ID MOVE CRD-PWD TO CRD-OUT-PWD WRITE DSK-RCD1 FROM OUTPUT-INST PERFORM 2000-RD-CRD-RT. //* //GO.DISKFL1 DD DSN=ACCTID.WORK.OUT(COBOUT),DISP=SHR //GO.READER DD * ANDERSON ESSABIA ANNIECE XXXXXXXXX ISYS4283 002 EANDERS PWD001 ANIPA EKO A XXXXXXXXX ISYS4283 002 EAANIPA PWD002 BLOMBERG BETTY ANN XXXXXXXXX ISYS4283 002 BBLOMBE PWD003 CORDIERO SHELDON JOHN XXXXXXXXX ISYS4283 002 SCORDEI PWD004 NESTRUD CHRISTOPHER CHARLES XXXXXXXXX ISYS4283 002 CCN PWD005 RODRIGUEZ SARAH MARTHA XXXXXXXXX ISYS4283 002 SRODRIG PWD006 SIMMONS KIMBERLY M XXXXXXXXX ISYS4283 002 KMS06 PWD007 WIDEMAN JOHN RANDELL XXXXXXXXX ISYS4283 002 JWIDEMA PWD008 /* //