IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

ICETOOL Control Card Question


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Wed Jan 23, 2013 9:35 pm
Reply with quote

In the below examples from the DFSORT manual, what is the significance of the 5X paramenter.

Code:

OUTREC FIELDS=(21,20,SQZ=(SHIFT=RIGHT),5X,
    152,18,SQZ=(SHIFT=LEFT,PREBLANK=X’05’,
        LEAD=C’VOL=SER=’,MID=C’,’,PAIR=QUOTE,LENGTH=30))


Code:

 OUTFIL FNAMES=TRIM3,VLTRIM=C’*’,
             OUTREC=(1,15,5X,16,8,5X,28)


Code:

INREC FIELDS=(1,10,
    21,20,JFY=(SHIFT=RIGHT),5X,
    52,12,JFY=(SHIFT=LEFT,PREBLANK=C’()’,LEAD=C’VOL=SER=’,
    LENGTH=16))
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Jan 23, 2013 9:58 pm
Reply with quote

Hello,

The 5X parameters specify 5 blanks (x'40) are to be inserted.
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Wed Jan 23, 2013 11:38 pm
Reply with quote

Thank you for your response. Scott
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Wed Jan 23, 2013 11:45 pm
Reply with quote

I have one followup. What would be the best method of taking a fixed file of records. removing all blanks, and substituting a hex '05' as a delimiter to create a downloadable spreadsheet file?

Code:

AAAAAAAAAA          BBBBBBBBB       CCCCC        DDD


Let say @ is representative of the hex '05' delimiter. The output should look like:

Code:

AAAAAAAAAA@BBBBBBBBB@CCCCC@DDD@
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Wed Jan 23, 2013 11:52 pm
Reply with quote

Please disregard my question. I was successful using:

Code:

 SORT FIELDS=COPY                                             
 OUTFIL FNAMES=OUTFILE,CONVERT,                               
       OUTREC=(1,80,SQZ=(SHIFT=LEFT,MID=X'05',TRAIL=X'05'))   
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts JCL sort card - get first day and las... JCL & VSAM 9
No new posts Using Dynamic file handler in the Fil... COBOL Programming 2
No new posts Shift left VB record without x00 endi... DFSORT/ICETOOL 11
No new posts how to calculate SUM value for VB fil... DFSORT/ICETOOL 1
No new posts how to calculate SUM for VB file usin... JCL & VSAM 1
Search our Forums:

Back to Top