FILE STATUS CODE IS :37
Posted: Wed Mar 30, 2016 3:48 pm
Hi,
I am beginner in mainframe
Could someone please guide me, I am getting status code 37 error.
[B]Cobol Code[B]
[b]JCL Code[b]
[b]Cluster[b]
I am beginner in mainframe
Could someone please guide me, I am getting status code 37 error.
[B]Cobol Code[B]
IDENTIFICATION DIVISION.
PROGRAM-ID. EMPINDX.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMP-INDEX
ASSIGN TO EMPINDEX
ORGANIZATION IS INDEXED
RECORD KEY IS EMP-ID
ACCESS MODE IS DYNAMIC
FILE STATUS IS WS-STATUS.
DATA DIVISION.
FILE SECTION.
FD EMP-INDEX
LABEL RECORDS ARE STANDARD.
01 EMP-RECORD.
05 EMP-ID PIC 9(5).
05 EMP-FNAME PIC X(10).
05 EMP-LNAME PIC X(10).
WORKING-STORAGE SECTION.
01 WS-STATUS PIC X(2).
PROCEDURE DIVISION.
PROGRAM-BEGIN.
OPEN OUTPUT EMP-INDEX.
DISPLAY WS-STATUS.
PERFORM WRITE-EMP.
CLOSE EMP-INDEX.
PROGRAM-DONE.
STOP RUN.
WRITE-EMP.
MOVE "100001" TO EMP-ID.
MOVE "EMP1" TO EMP-FNAME.
MOVE "EMP1L" TO EMP-LNAME.
WRITE EMP-RECORD.
DISPLAY WS-STATUS.
PROGRAM-ID. EMPINDX.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMP-INDEX
ASSIGN TO EMPINDEX
ORGANIZATION IS INDEXED
RECORD KEY IS EMP-ID
ACCESS MODE IS DYNAMIC
FILE STATUS IS WS-STATUS.
DATA DIVISION.
FILE SECTION.
FD EMP-INDEX
LABEL RECORDS ARE STANDARD.
01 EMP-RECORD.
05 EMP-ID PIC 9(5).
05 EMP-FNAME PIC X(10).
05 EMP-LNAME PIC X(10).
WORKING-STORAGE SECTION.
01 WS-STATUS PIC X(2).
PROCEDURE DIVISION.
PROGRAM-BEGIN.
OPEN OUTPUT EMP-INDEX.
DISPLAY WS-STATUS.
PERFORM WRITE-EMP.
CLOSE EMP-INDEX.
PROGRAM-DONE.
STOP RUN.
WRITE-EMP.
MOVE "100001" TO EMP-ID.
MOVE "EMP1" TO EMP-FNAME.
MOVE "EMP1L" TO EMP-LNAME.
WRITE EMP-RECORD.
DISPLAY WS-STATUS.
[b]JCL Code[b]
//G725590A JOB ,,NOTIFY=&SYSUID,CLASS=D,MSGLEVEL=(1,1),MSGCLASS=X
//JOBLIB DD DSN=OPERN.COBOL.LOADLIB,DISP=SHR
//STEP1 EXEC PGM=EMPINDX
//EMPINDEX DD DSN=G725590.TSO.TEST.MYDATA,DISP=SHR
//JOBLIB DD DSN=OPERN.COBOL.LOADLIB,DISP=SHR
//STEP1 EXEC PGM=EMPINDX
//EMPINDEX DD DSN=G725590.TSO.TEST.MYDATA,DISP=SHR
[b]Cluster[b]
DEFINE CLUSTER (NAME(G725590.TSO.TEST.MYDATA) -
VOLUMES(VSER02) -
RECORDS(100 50) -
) -
DATA (NAME(G725590.TSO.TEST.KSDATA) -
KEYS(5 1) -
RECORDSIZE(25 25) -
BUFFERSPACE(250) -
)-
INDEX (NAME(G725590.TSO.TEST.KSINDEX)-
)
VOLUMES(VSER02) -
RECORDS(100 50) -
) -
DATA (NAME(G725590.TSO.TEST.KSDATA) -
KEYS(5 1) -
RECORDSIZE(25 25) -
BUFFERSPACE(250) -
)-
INDEX (NAME(G725590.TSO.TEST.KSINDEX)-
)