Tom: No problem at all and a big thanks .. Here is the pseudo code : 1. Alloc dd(sysin) to disk Using BPXWDYN 2. Write control records to disk(sysin) 3. Alloc dd(sysprint) to disk Using BPXWDYN - Lrecl = 133 , Recfm=vb, dsorg=ps 4. Call program 5. Close sysin 6. Close sysprint 7. Free sysin 8. Free sysprint 9. Open #3 file from above as Optional in Cobol with Recording mode is V 10. Read file .... the output is unreadable. No 'DD' s for 1,3 or 9. If I add a 'DD' as shown below, it works fine //FILE2 DD DISP=SHR,DSN=SFORD.SYSPRINT, // DCB=(RECFM=VB,LRECL=137) Data Set Information More: + Data Set Name . . . . : SFORD.SYSPRINT General Data Current Allocation Management class . . : **None** Allocated cylinders : 5 Storage class . . . : **None** Allocated extents . : 1 Volume serial . . . : JASYS1 Device type . . . . : 3390 Data class . . . . . : **None** Current Utilization Organization . . . : PS Used cylinders . . : 1 Record format . . . : VBA Used extents . . . : 1 Record length . . . : 133 Block size . . . . : 27930 1st extent cylinders: 5 Secondary cylinders : 5 Data set name type : SMS Compressible : NO Creation date . . . : 2011/12/07 Referenced date . . : 2011/12/07 Expiration date . . : ***None*** My problem is that I dont want the 'DD' for the above file, not sure if I can read this file without one... Does that help ..???
Scott J Ford Software Engineer http://www.identityforge.com ________________________________ From: Tom Marchant <m42tom-ibmm...@yahoo.com> To: IBM-MAIN@bama.ua.edu Sent: Thursday, December 8, 2011 8:23 AM Subject: Re: RECFM=VBA and no JCL On Wed, 7 Dec 2011 19:45:58 -0800, Scott Ford wrote: >I have the following situation: I'm having trouble parsing your post. Do you mind if I pick it apart? >I am calling a program via Cobol You have a Cobol program? >and the output is RECFM=VBA,LRECL=133,BLKSIZE=1330 (only an example) >The actual allocations are done dynamically via BPXWDYN and work fine >no problem. Ok. There is no DD statement in your JCL. >I then close the file and free it and re-allocate it ( no JCL ) for this >file its dynamic and of course I can read it. After writing the data set, you close it, free it and reallocate it so that you can open it for input? Same DDNAME or different? >If I code a 'DD' with a RECFM=VB,LRECL=137 it works great with no problems. Ok. I assume without the BPXWDYN calls? >I can I do the same internally inside my Cobol code without a 'DD' stmt ? Isn't that what you said you were doing first with BPXWDYN? -- Tom Marchant ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
