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 ---------------------------------------------------------------------- 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
