Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ICETOOL Control Card Question

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: ICETOOL Control Card Question
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

Site Director


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

PostPosted: Wed Jan 23, 2013 9:58 pm    Post subject:
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    Post subject: Reply to: ICETOOL Control Card Question
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    Post subject: Reply to: ICETOOL Control Card Question
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    Post subject: Reply to: ICETOOL Control Card Question
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    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts To remove the spaces using SORT Card dharmaraok DFSORT/ICETOOL 1 Tue Apr 30, 2019 3:42 pm
No new posts INREC IFTHEN question knobi SYNCSORT 2 Mon Apr 15, 2019 11:55 pm
No new posts Attachmate file transfer question John Poulakos All Other Mainframe Topics 3 Wed Mar 20, 2019 1:45 am
No new posts COBOL Table Question GAPX1 COBOL Programming 3 Thu Mar 07, 2019 9:48 pm
No new posts Query on updating the control cards. abdulrafi DFSORT/ICETOOL 2 Tue Feb 26, 2019 2:23 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us