Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Use of Edit & FTOV

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> SYNCSORT
View previous topic :: :: View next topic  
Author Message
migusd

New User


Joined: 08 Aug 2014
Posts: 11
Location: USA

PostPosted: Wed Jun 08, 2016 1:49 am    Post subject: Use of Edit & FTOV
Reply with quote

Hi guys,
Need your assistance with a issue that I have.
I am trying to use EDIT, FTOV & Dictionary items in the same sort, but struggling to put it to work.

I am selecting a couple of fields from the input file.
The first field is 255 bytes long, that I am trying to convert to variable.
The second field is numeric packed. Trying to converted to zone.
also attempting to switch the fields in the output file.
File is sorted by the long field.

I tried moving the EDIT to the input field and still not able to finish.
here are the results.
//SORTOUT DD DSN=NNNN.LLLLL.SUBSET,
// DISP=(NEW,CATLG,DELETE),
// RECFM=VB,LRECL=275,BLKSIZE=0,DSORG=PS,
// UNIT=(SYSALLDA,30),SPACE=(CYL,(30,50),RLSE)
--------------------------------------------------------------------------
INREC FIELDS=(ESRI,TESN) ESROURCE ID & TES NUMBER
SORT FIELDS=(1,255,CH,A)
OUTFIL OUTREC=(5:NTES,EDIT=('IIIIIIIIIIIIT'),18:NESR),
FTOV,VLTRIM=X'40'
DATA DICTIONARY SYMBOLS SUBSTITUTED :
INREC FIELDS=(65,255,679,7)
SORT FIELDS=(1,255,CH,A)
OUTFIL OUTREC=(5:5,7,PD,EDIT=('IIIIIIIIIIIIT'),18:12,255),FTOV,VLTRIM=X'40'
….
WER108I SORTIN : RECFM=FB ; LRECL= 686; BLKSIZE= 27440
WER073I SORTIN : DSNAME=nnnn.mmmm.f7dl
WER257I INREC RECORD LENGTH = 262
WER230A SORTOUT OUTREC FIELD OUTSIDE RANGE

What am I doing wrong?
numeric field grows from 7 PD, to 13, starting at 5 and finishing at 17, right?
and the second field starting at 18 for 255 bytes (max).
what am I missing?

Thanks
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7232

PostPosted: Wed Jun 08, 2016 2:54 am    Post subject: Reply to: Use of Edit & FTOV
Reply with quote

Your input to OUTFIL is 262 bytes long. You are referencing 1,255. Do the maths.

Why are you starting from position 5 for your "number"?

With your INREC FIELDS (please use BUILD) you put 255 bytes from start position 65, then 7 from 679 for your number.

Why are you starting the OUTREC (please, make it BUILD) at position 5? Start it at 1, the default, so you don't have to specify, then start the 255 field just at the next available position.
Back to top
View user's profile Send private message
migusd

New User


Joined: 08 Aug 2014
Posts: 11
Location: USA

PostPosted: Wed Jun 08, 2016 9:45 pm    Post subject: Reply to: Use of Edit & FTOV
Reply with quote

Thank you, Bill...
That made a huge difference
here are my new cards...
Quote:
SYSIN :
INREC BUILD=(TESN,ESRI) NES RESS & TES KEY
SORT FIELDS=(08,255,CH,A)
OUTFIL BUILD=(NTES,EDIT=('TTTTTTTTTTTTT'),NESR),
FTOV,VLTRIM=X'40'
DATA DICTIONARY SYMBOLS SUBSTITUTED :
INREC BUILD=(679,7,65,255)
SORT FIELDS=(08,255,CH,A)
OUTFIL BUILD=(5,7,PD,EDIT=('TTTTTTTTTTTTT'),8,255),FTOV,VLTRIM=X'40'


Unfortunately Sort is abending with a s0C7... doesn't like something in the 255 byte field... sadly...

Thanks for your help icon_smile.gif
Back to top
View user's profile Send private message
migusd

New User


Joined: 08 Aug 2014
Posts: 11
Location: USA

PostPosted: Wed Jun 08, 2016 9:55 pm    Post subject:
Reply with quote

my mistake... again...
forgot to change the start of the OUTFIL build as suggested to...
OUTFIL BUILD=(1,7,PD...

works fine!!!

Thanks a lot!!!
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 -> SYNCSORT All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How storage is calculated for AN-Edit... Raghu navaikulam COBOL Programming 2 Wed Mar 09, 2016 3:51 pm
No new posts Too many edit macro's and too few PF ... don.leahy TSO/ISPF 7 Wed Feb 17, 2016 3:00 am
No new posts EDIT END(SAVE) or CANCEL? Steve Coalbran TSO/ISPF 9 Sat Feb 06, 2016 7:11 pm
No new posts How to create/edit/update a new GDG V... karthikbalakumar8 JCL & VSAM 2 Fri Feb 05, 2016 6:35 pm
No new posts Use Edit Line Command Table with ISPF... Mickeydusaor TSO/ISPF 5 Thu Jan 28, 2016 4:52 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us