tag_tushar

 Profile Answers by tag_tushar 

• Jul 22nd, 2010

 

Name fo  VSAM file to be read by COBOL: ABC.VSAM.KSDS

COBOL PROGRAM: ABC.XYZ.PQR(VASM)
ID DIVISION.
PROGRAM-ID. 'VSAM'.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE CONTROL.
        SELECT INFILE ASSING TO DD1
        ORGANIZATION IS INDEXED
        ACCESS MODE IS SEQUENTIAL
        FIEL STATUS IS INF.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 INREC.
       05 NAME PIC A(20).
       05 AGE  PIC 9(5).
       05 SALARY PIC 9(8).
       05 FILLER PIC X(50).
WORKING-STORAGE SECTION.
01 EOF PIC X VALUE 'N'.
01 INF PIC X(2).
PROCEDURE DIVISION.
MAIN-PARA.
       OPEN INPUT INFILE.
       PERFORM READ-PARA UNTIL EOF = 'Y'
       CLOSE INFILE.
       STOP RUN.
READ-PARA.
        READ INFILE AT END MOVE 'Y' TO EOF.

COBOL COMPILER:
//JOBNAME JOB NOTIFY=&SYSUID,PRTY=15
//JOBLIB JCLLIB ORDER DSN =<SYSTEM LIB>,DISP=SHR
//COBCL EXEC COBCL
//COMPLIE.SYSIN DD DSN=ABC.XYZ.PQR(VASM),DISP=SHR
//LKED.SYSLMOD DD DSN=ABC.XYZ.LOADLIB(VASM),DISP=SHR
//RUN EXEC PGM=VSAM
//STEPLIB DD DSN=ABC.XYZ.LOADLIB,DISP=SHR
//DD1 DD DSN=ABC.VSAM.KSDS,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
/SYSIN DD DUMMY
/*