IEBGENER. Assuming standard 133 byte records this should do the trick: //REPORT EXEC PGM=REPORT //SYSPRINT DD DSN=&&SYSOUT,DISP=(,PASS), // DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133), // UNIT=SYSDA,SPACE=(133,(500)) //* //IEBGENER EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD * GENERATE MAXFLDS=1 RECORD FIELD=(132,2,,1) //SYSUT1 DD DSN=&&SYSOUT,DISP=(OLD,DELETE) //SYSUT2 DD SYSOUT=*, // DCB=(RECFM=FB,LRECL=132,BLKSIZE=132)
-- Donald Grinsell State of Montana 406-444-2983 [email protected] "I'll sleep when I'm dead..." ~ Warren Zevon -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Elardus Engelbrecht Sent: Tuesday, 24 April 2012 08:01 To: [email protected] Subject: Strip column 1 from reports Good day to all Is there a way to strip column 1 from reports, SYSOUT, output from ICETOOL, RACFRW, etc? As it is now, the method of specifying the ISO/ANSI/FIPS control characters (' ', '0', '-', '+', '1') [1] is not really used much these days. It makes these reports 'dirty', 'ugly', etc. Background, I have several jobs with reports from IBM utilities, sort results, etc, but these outputs are having those column 1. For example, using ICETOOL, despite trying out options and RECFM=FB, my output ends up having RECFM=FBA (column 1 with that control characters and other columns the report/output) Of course I could try out DFSORT with copy everything except column 1. But then I had to insert that step everywhere where that column can be eliminated. (Something like this: OUTREC FIELDS=(1:1,CHANGE=(1,C'1',C' ') ) Or I could feed those reports in a Assembler program which can do a TR. (similar to REXX's TRANSLATE function). Was this ever discussed here on IBM-MAIN? Is it possible? Am I overlooking something so very simple that it *must* be overlooked? :-D Any pointers are absolutely welcomed with gratitude. Many thanks in advance. Groete / Greetings Elardus Engelbrecht [1] - ISO/ANSI/FIPS control characters which are in column 1: b = Space one line (blank code) 0 = Space two lines - = Space three lines + = Suppress space 1 = Skip to channel 1 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
