In TSO EDIT, check if the dataset (or member) has 'PACK ON' active (PROFILE command), If so, execute PACK OFF command and SAVE it.
Sandro Ambrozic +34 666 803 223 2011/8/2 John Dawes <[email protected]> > 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 > ---------------------------------------------------------------------- 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
