Joined: 02 Dec 2002 Posts: 616 Topics: 171 Location: Stockholm, Sweden
Posted: Wed Jan 03, 2024 6:17 am Post subject: Define LRECL for instream SYSIN
I hope I've described the problem correctly in the title.
We have a program that, for some strange reason, allows the developer to pass parms in via instream JCL, but the file defined is LRECL=70..
The actual program looks like this
Code:
FD PARMIN RECORDING F
BLOCK CONTAINS 0 RECORDS
LABEL RECORD IS STANDARD
DATA RECORD IS PARMPOST.
01 PARMPOST PIC X(70).
and in the procedure division, the code is
Code:
READ PARMIN INTO W-PARMIN
AT END SET WS-SLUT TO TRUE
END-READ.
In my naivety (?), I though you could write your JCL along these lines
Code:
//MFA600I DD *,DLM='/*',LRECL=70
900000-N--
/*
(or something similar to this).
Trouble is, I'm crashing on the READ statement every time.
Can this be done or am I tilting at windmills? _________________ Michael
I am assuming that you actually allocated PARMIN file to MFA6001 _________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
I tested just submitting the job rather than trying to debug it via IDz (in CASE there was a bug in the latter), but ... same results. _________________ Michael
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
