Steve, Sorry, the dsn has been deleted, however I posted the first portion of the dsn I left out the second half.
--- On Wed, 3/8/11, Steve Comstock <[email protected]> wrote: From: Steve Comstock <[email protected]> Subject: Re: IEBGENER QUESTION To: [email protected] Received: Wednesday, 3 August, 2011, 2:50 AM On 8/2/2011 7:49 AM, John Dawes wrote: > G'Day, > > I am trying print a dsn via IEBGENER. However when I check the output it is > all garbled. I browsed the input dsn via TSO and all looks fine. Would > anyone know why the output is garbage? Here is a sample: > F& * g07/18/11 e853652 nPFS (C2-3421) 11/01/11 h*SR853652 a10 > WS-SR-PR-NUMBER hPIC X(06) VALUE '853652'. gSR853652 a10 >WS-PROGMR-INITLS hP > IC X(03) VALUE 'RBP'. gSR853652 'PFS 11/01/2011 RATE-FILING a'. gSR853652 > l* O > NE PAY CREDIT PFS e- #104 gSR853652 a* : _ gSR853652 * * gSR853652 a* : _ > * g > > Here is my jcl: > /* > //HC EXEC PGM=IEBGENER,COND=EVEN > //*--------------------------------------------------------------------- > //* HARDCOPY PRINT > //*--------------------------------------------------------------------- > //SYSUT1 DD DSN=SYS2.PUB.TEST.SRAL, > // DISP=(SHR,KEEP) > //SYSUT2 DD SYSOUT=(*) > //SYSPRINT DD SYSOUT=* > //SYSIN DD DUMMY > //*--------------------------------------------------------------------- > > I tried using a DCB of DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440) however the > result is the same. > > Below is the layout of the dsn: > General Data Current Allocation > Management class . . : **None** Allocated tracks . : 1 > Storage class . . . : **None** Allocated extents . : 1 > Volume serial . . . : IDW801 > Device type . . . . : 3380 > Data class . . . . . : **None** > Organization . . . : PS Current Utilization > Record format . . . : FB Used tracks . . . . : 1 > Record length . . . : 80 Used extents . . . : 1 > Block size . . . . : 23440 > 1st extent tracks . : 1 > Secondary tracks . : 2 Dates > Data set name type : Creation date . . . : 2011/08/02 > SMS Compressible. . : NO Referenced date . . : 2011/08/02 > Expiration date . . : ***None*** > > Thanks in advance Can you show us the data (just a couple of lines) from your browse? -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-393-8716 http://www.trainersfriend.com * Special promotion: 15% off on all DB2 training classes scheduled by September 1, taught by year end 2011 * Check out our entire DB2 curriculum at: http://www.trainersfriend.com/DB2_and_VSAM_courses/DB2curric.htm ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
