What is missing is a method of making the program "know" that you want it to get input from your screen. (or so it seems)
If you want terminal input you need to use CICS or ISPF PANEL processing. Or possibly execute this program from TSO. It has been a while but I know of no way to tie a batch job to your terminal. On Sat, Jul 9, 2016 at 2:40 AM, Cameron Seay <[email protected]> wrote: > 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 [email protected] with the message: INFO IBM-MAIN > -- Keith Smith Engineer-Enterprise Sys Sr.-IT Capacity & Performance Shaw Industries Inc. Subsidiary of Berkshire Hathaway 616 E Walnut Ave Mail Drop 072-04 Dalton, GA 30721 Email: [email protected] Office: 706.532.3244 Please consider the environment before printing. -- ********************************************************** Privileged and/or confidential information may be contained in this message. If you are not the addressee indicated in this message (or are not responsible for delivery of this message to that person) , you may not copy or deliver this message to anyone. In such case, you should destroy this message and notify the sender by reply e-mail. If you or your employer do not consent to Internet e-mail for messages of this kind, please advise the sender. Shaw Industries does not provide or endorse any opinions, conclusions or other information in this message that do not relate to the official business of the company or its subsidiaries. ********************************************************** ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
