this shop is a syncsort shop and i found out the hard way. After trying to use RESIZE and getting frustrated I thought there must be a way around it. The records I had to break down had an OCCURS Clause of 50. I was typing away trying to get the exact byte count and place it into my build and I was making a lot of mistakes. I ended up researching this wonderful forum and found my way to SEQNUM and REPEAT=.
This worked great after getting the syntax errors debugged.
I finally got my cards output to where I can drag them into my next go around with COBOL Occurs.
they look like this...
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
Thanks madmartinsoxx, already suggested it to someone (they may not look at it).
Here's my take on it, with symbols/SYMNAMES:
Code:
IN-RECORD-AREA,1,409,CH
IN-RA-ID,=,2,CH # = GETS START OF PREVIOUS FIELD
SKIP,22 # LIKE A FILLER
IN-RA-ACCOUNT,*,9,CH
SKIP,76 # LIKE A FILLER
IN-RA-OCCURS01,*,30,CH # * GETS FIRST POSITION AFTER PREVIOUS FIELD
IN-RA-OCCURS02,*,30,CH
IN-RA-OCCURS03,*,30,CH
IN-RA-OCCURS04,*,30,CH
IN-RA-OCCURS05,*,30,CH
IN-RA-OCCURS06,*,30,CH
IN-RA-OCCURS07,*,30,CH
IN-RA-OCCURS08,*,30,CH
IN-RA-OCCURS09,*,30,CH
IN-RA-OCCURS10,*,30,CH