Sri,
stunning as usual !
ICETOOL is really terrific . and I've learnt much more (CHANGE for
instance).
Thanks a lot.
Max
Il giorno gio 9 gen 2020 alle ore 02:16 Sri h Kolusu
ha scritto:
> > Please "light us" with the trick.
>
> Max,
>
> Here is the trick job I was talking about. Basically
> Please "light us" with the trick.
Max,
Here is the trick job I was talking about. Basically you resize the record
into 4 byte chunks and use 4 IFTHEN statements to space out the record.
This job will work for any LRECL 1-(assuming you adjust the pos and
lengths) and if you want to handle LR
Sri,
your view is always important to us.
The fix for 99 is not so difficult.
Please "light us" with the trick.
:D
Max
Il giorno mer 8 gen 2020 alle ore 15:09 Sri h Kolusu
ha scritto:
> > this could be a more useful version:
>
> Massimo,
>
> Peter mentioned that the input has a 2-byte zoned
> this could be a more useful version:
Massimo,
Peter mentioned that the input has a 2-byte zoned decimal "data length"
value which identifies the number of SIGNIFICANT columns. So the maximum
value that a 2 byte zoned decimal can hold is 99. Your job fails as the
arithmetic ends with a negat
Peter,
this could be a more useful version:
//ST020 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
H 05 COMMENT: "05" IS SIGNIFICANT DATA COLUMNS
D 12345 XYZ ABC DEF
D 45678 GHI JKL MNO
H 10
D 1234567890 ABCDEFGHIJKL
D 9876543210 MNOPQWRSTUVWXYZ
/*
//SORTOUT DD DSN=&SK,DISP=(,PASS),SPACE=(TRK,
Peter,
I don't know how long is your record, assuming it's 80 and that the LL
field in H record is between 1 and 99, this could be a solution:
//SYSIN DD *
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'H'),
PUSH=(81:3,2))
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,1,CH,EQ,C'H'),
BUILD=(1,8
I have a fixed-record-length data file which has "subsections" starting with a
"data characteristics" record (call it a "subsection header"). One of the
fields in the "subsection header" is a 2-byte zoned decimal "data length" value
which identifies the number of SIGNIFICANT columns in the "dat