> > 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 >
Are there any messages in SYSPRINT? Lizette ---------------------------------------------------------------------- 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
