From tso allocate Sysin to your terminal and call the load module from tso
Sent from my iPhone > On Jul 10, 2016, at 9:18 AM, Keith Smith <[email protected]> wrote: > > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
