EDIT MTPLP06.TEC.RT(READ) - 01.03
Command ===>
****** ***************************** Top of Data *****
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID RED.
000300 ENVIRONMENT DIVISION.
000400 INPUT-OUTPUT SECTION.
000500 FILE-CONTROL.
000600 SELECT FILE1 ASSIGN TO DD1
000700 ORGANIZATION IS SEQUENTIAL
000800 ACCESS MODE IS SEQUENTIAL
000900 FILE STATUS IS FS1.
001000 DATA DIVISION.
001100 FILE SECTION.
001200 FD FILE1.
001300 01 REC1.
001400 02 ENAME PIC X(10).
001500 02 PIC X(5).
001600 02 ECODE PIC 9(5).
001700 02 PIC X(5).
001800 02 SAL PIC 9(5).
001900 02 PIC X(50).
002000 * FD FILE2.
002100 * 01 REC2.
002200 * 02 ENAME PIC X(10).
002300 * 02 PIC X(5).
002400 * 02 ECODE PIC 9(5).
002500 * 02 PIC X(5).
002600 * 02 SAL PIC 9(5).
002700 * 02 PIC X(50).
002800 WORKING-STORAGE SECTION.
002900 77 FS1 PIC X(2).
003000 * 77 FS2 PIC X(2).
003100 77 EOF1 PIC X(3) VALUE 'NO'.
003200 * 77 EOF2 PIC X(3) VALUE 'NO1'.
003300 PROCEDURE DIVISION.
003400 PERFORM OPEN-PARA.
003500 PERFORM OPERATION-PARA 2 TIMES.
003600 PERFORM CLOSE-PARA.
003700 STOP RUN.
003800 OPEN-PARA.
003900 OPEN INPUT FILE1.
004000 DISPLAY FS1.
004100 OPERATION-PARA.
004200 READ FILE1 AT END MOVE 'YES' TO EOF1 NOT AT END
004300 DISPLAY REC1
004400 END-READ.
004500 CLOSE-PARA.
004600 CLOSE FILE1.
4700 DISPLAY FS1.
( GAVE INPUT IN FILE1 AND GET O/P IN SPOOL FROM COBCOMP & RUN)
EDIT MTPLP06.TEC.RT(FILE1) - 01.00
Command ===>
****** ***************************** Top of
000100 SAM E0001 10000
000200 RAM E0002 20000
EDIT MTPLP06.TEC.RT(WRITE) - 01.21
Command ===>
****** ***************************** Top of Data *********
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID RED1.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT FILE1 ASSIGN TO DD1
000007 ORGANIZATION IS SEQUENTIAL
000008 ACCESS MODE IS SEQUENTIAL
000009 FILE STATUS IS FS1.
000010 DATA DIVISION.
000011 FILE SECTION.
000012 FD FILE1.
000013 01 REC1.
000014 02 ENAME PIC X(10).
000015 02 PIC X(5).
000016 02 ECODE PIC 9(5). 000017 02 PIC X(5).
000018 02 SAL PIC 9(5).
000019 02 PIC X(50).
000020 * FD FILE2.
000021 * 01 REC2.
000022 * 02 ENAME PIC X(10).
000023 * 02 PIC X(5).
000024 * 02 ECODE PIC 9(5).
000025 * 02 PIC X(5).
000026 * 02 SAL PIC 9(5).
000027 * 02 PIC X(50).
000028 WORKING-STORAGE SECTION.
000029 77 FS1 PIC X(2).
000030 77 FS2 PIC X(2).
000031 77 EOF1 PIC X(3) VALUE 'NO'.
000032 77 EOF2 PIC X(3) VALUE 'NO1'.
000033 01 REC2.
000034 02 ENAME PIC X(10).
000035 02 PIC X(5).
000036 02 ECODE PIC 9(5).
000037 02 PIC X(5).
000038 02 SAL PIC 9(5).
000039 02 PIC X(50).
000040 PROCEDURE DIVISION.
000041 PERFORM OPEN-PARA.
000042 PERFORM OPERATION-PARA 2 TIMES.
000043 PERFORM CLOSE-PARA.
000044 STOP RUN.
000045 OPEN-PARA.
000046 OPEN OUTPUT FILE1.
000047 DISPLAY FS1.
000048 OPERATION-PARA.
000049 ACCEPT REC2.
000050 DISPLAY REC2.
000051 MOVE REC2 TO REC1.
000052 DISPLAY REC1.
000053 WRITE REC1.
000054 CLOSE-PARA.
000055 CLOSE FILE1.
000056 DISPLAY FS1.
( then compile)
EDIT MTPLP06.TEC.RT(COMP) - 01.08 Columns
Command ===> Scro
****** ***************************** Top of Data *****************
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //JOBPROC JCLLIB ORDER=MAINTEC.PROC.LIB
000300 //COBCL EXEC IGYWCL,
000400 // PGMLIB=MTPLP06.TEC.LOADLIB, --> LOADLIB NAM
000500 // GOPGM=WRITE --> MEMBER NAME &nnbsp;
000600 //COBOL.SYSIN DD DSN=MTPLP06.TEC.RT(WRITE),DISP=SHR
000700 /*
(then run and give input below sysin )
EDIT MTPLP06.TEC.RT(COBRUN) - 01.10 Columns 00001
Command ===> Scroll ===>
****** ***************************** Top of Data ************************
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //RUN EXEC PGM=WRITE
000300 //STEPLIB DD DSN=MTPLP06.TEC.LOADLIB,DISP=SHR --> LOAD LIB
000400 //SYSPRINT DD SYSOUT=*
000500 //*SYSOUT DD SYSOUT=*
000600 //DD1 DD DSN=MTPLP06.TEC.RT(FILE2),DISP=SHR
000700 //* DCB=(BLKSIZE=800,LRECL=80,RECFM=FB),
000800 //* UNIT=SYSDA,SPACE=(TRK,(1,2),RLSE)
000900 //*DD2 DD DSN=MTPLH02.COBOL.PS2,DISP=(NEW,CATLG,DELETE),
001000 //* DCB=(BLKSIZE=800,LRECL=80,RECFM=FB),
001100 //* UNIT=SYSDA,SPACE=(TRK,(1,2),RLSE)
001200 //SYSIN DD *
001300 TOM E0003 30000
001400 ROM E0004 40000
001500 /*
001600 //
( and will get below o/p in file2 which was blank)
EDIT MTPLP06.TEC.RT(FILE2) - 01.00
Command ===>
****** ***************************** Top of
001300 TOM E0003 30000
001400 ROM E0004 40000