Re: How to accept multiple lines of Instream data.
- From: "arrbee" <arrbee@xxxxxxxxx>
- Date: 27 Apr 2006 06:08:42 -0700
COBOL Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. INSTRM01.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-ISTRM PIC X(05).
PROCEDURE DIVISION.
PARA-A.
DISPLAY 'START EXECUTION.'.
ACCEPT WS-ISTRM.
IF WS-ISTRM > SPACE
DISPLAY 'WS-ISTRM ' WS-ISTRM
ELSE
DISPLAY 'ISTRM-WS'
END-IF.
DISPLAY 'STOP EXECUTION.'.
Corresponding JCL:
//XXXXXXSJ JOB (XXXXXX),'TEST JOB',
// CLASS=X,
// MSGCLASS=X,
// NOTIFY=&SYSUID
//*
//JOBLIB DD DSN=XXXXX.XXXXXX.LOAD,DISP=SHR
//JS010 EXEC PGM=INSTRM01
//*
//SYSIN DD *
ABCDE
FGHIJ
KLMNO
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//
Any help?
.
- References:
- Prev by Date: Re: US Presidents; an outside view WAS: Any comments? (Evolution - was Answers to Pete)
- Next by Date: Re: How to accept multiple lines of Instream data.
- Previous by thread: Re: How to accept multiple lines of Instream data.
- Next by thread: Re: How to accept multiple lines of Instream data.
- Index(es):
Relevant Pages
|
|
