IBM Mainframe Forum

Posted: **Wed Apr 03, 2013 4:15 pm**

In jcl if column (1,3,ch,eq,c'ram') then we need to copy from ram to end of records in input file
E.g)
input dataset

Select all

aaaaa
bbbbbbbbbbbbbbbbbbb
ram
cccccccccccccccc
.......
.......

o/p should be in new dataset

Select all

ram
cccccccccccccccc
.......
.......

Please advice

Posted: **Wed Apr 03, 2013 4:29 pm**

I have assumed you records are FB and 80 bytes long.

If you are one who likes to learn, add this into your JCL (say, before SYSIN):

Select all

//SYMNAMES DD *
INPUT-RECORD,1,80,CH
EXTEND-FOR-INCLUDE-VALUE,*,3,CH
TEXT-TO-CHECK,1,=,=
TEXT-FOR-COPY-TO-END,C'ram'
//SYMNOUT DD SYSOUT=*

Use these as your control cards:

Select all

OPTION COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(TEXT-TO-CHECK,
EQ,
TEXT-FOR-COPY-TO-END),
PUSH=(EXTEND-FOR-INCLUDE-VALUE:
TEXT-TO-CHECK))

OUTFIL INCLUDE=(EXTEND-FOR-INCLUDE-VALUE,
EQ,
TEXT-FOR-COPY-TO-END)

If you just want a solution, try this:

Select all

OPTION COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,3,CH,EQ,C'ram'),
PUSH=(81:1,3))
OUTFIL INCLUDE=(81,3,CH,EQ,C'ram')

Posted: **Wed Apr 03, 2013 5:22 pm**

Thanks billy...It works like a charm ... Thanks a lot for your help.... but minor syntax error next TEXT-TO-CHECK , missed in control card.

Posted: **Wed Apr 03, 2013 5:36 pm**

In jcl if column (1,3,ch,eq,c'ram')

If columns 1-3 are 'ram' then it is NOT JCL - it is data. Column 1 of JCL always has '/' and column 2 is usually '/' but can be '*'.

Posted: **Wed Apr 03, 2013 5:52 pm**

deva_048 wrote:Thanks billy...It works like a charm ... Thanks a lot for your help.... but minor syntax error next TEXT-TO-CHECK , missed in control card.

Thanks for the feedback, fixed now in original.

I hope that you understand the use of the symbols, they can make Sort Control Cards much easier to code and understand.

EDIT:

I missed one on the OUTFIL. Update that on yours, the results will be the same.

IBM Mainframe Forum

Copy rest of the records

Copy rest of the records

Re: Copy rest of the records

Re: Copy rest of the records

Re: Copy rest of the records

Re: Copy rest of the records