I am experiencing a run time error with a simple COBOL program. It compiles
fine. Here is the source code
IDENTIFICATION DIVISION.
*
PROGRAM-ID. CALC1000.
*
ENVIRONMENT DIVISION.
*
INPUT-OUTPUT SECTION.
*
DATA DIVISION.
*
FILE SECTION.
*
WORKING-STORAGE SECTION.
*
77 END-OF-SESSION-SWITCH PIC X VALUE "N".
77 SALES-AMOUNT PIC 9(5)V99.
77 SALES-TAX PIC Z,ZZZ.99.
*
PROCEDURE DIVISION.
*
000-CALCULATE-SALES-TAX.
*
PERFORM 100-CALCULATE-ONE-SALES-TAX
UNTIL END-OF-SESSION-SWITCH = "Y".
DISPLAY "END OF SESSION.".
STOP RUN.
*
100-CALCULATE-ONE-SALES-TAX.
*
DISPLAY "-----------------------------------------------".
DISPLAY "TO END PROGRAM, ENTER 0.".
DISPLAY "TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.".
ACCEPT SALES-AMOUNT.
IF SALES-AMOUNT = ZERO
MOVE "Y" TO END-OF-SESSION-SWITCH
ELSE
COMPUTE SALES-TAX ROUNDED =
SALES-AMOUNT * .0785
DISPLAY "SALES TAX = " SALES-TAX.
Here is the JCL:
==MSG> your edit profile using the command RECOVERY ON.
000100 //CALC1000 JOB 1,'A. STUDENT',NOTIFY=&SYSUID
000110 //**************************************************
000120 //* COMPILE COBOL PROGRAM
000130 //**************************************************
000140 //STEP1 EXEC IGYWCLG
000150 //SYSIN DD DSN=&SYSUID..LANG.SOURCE(CALC1001),DISP=SHR
000160 //COBOL.SYSLIB DD DSN=CEE.SCEESAMP,DISP=SHR
000170 //LKED.SYSLMOD DD DSN=&SYSUID..LANG.LOAD(CALC1001),DISP=SHR
Here is the error:
-----------------------------------------------
TO END PROGRAM, ENTER 0.
TO CALCULATE SALES TAX, ENTER THE SALES AMOUNT.
IEC130I SYSIN DD STATEMENT MISSING
***
IGZ0017S The open of DISPLAY or ACCEPT file with environment name SYSIN was uns
uccessful.
CEE3201S The system detected an operation exception (System Completion Code=0C1
).
From compile unit CALC1000 at entry point CALC1000 at compile unit off
set +000002DC at entry offset +000002DC
at address 1EE312DC.
Abend 0C1000 hex occurred processing command 'CALL '.
***
I can't find what is missing.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
