IBM Mainframe Forum

by **ranga_subham** » Thu Sep 11, 2008 5:07 pm

Hi,

I am using below file-aid to search and copy few strings from input file to sysout using file-aid batch but ending up with error.

Select all

//JS010 EXEC PGM=FILEAID
//DD01 DD DSN=TTTTT.OOOOO.JJJJ.PPPP.UUU.G0001V00,
// DISP=(SHR,KEEP,KEEP)
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//DD01O DD SYSOUT=*
//SYSIN DD *
$$DD01 COPY IF=(1,EQ,C'AAAAAA,BBBBBB,CCCCCC,DDDDDD,EEEEEE,FFFFFF,GGGGGG
,HHHHHH,IIIIII,JJJJJJ,KKKKKK,LLLLLL')
/*
//

Error: I am getting below shown error.

Select all

$$DD01 COPY IF=(1,EQ,C'AAAAAA,BBBBBB,CCCCCC,DDDDDD,EEEEEE,FFFFFF,GGGGGG
1...5...10...15...20...25...30...35...40...45...50...55...60...65
DELIMETERS DO NOT MATCH IN THE, IF, CHECK DATA STARTING IN COLUMN 65
.....SKIPPING TO NEXT $$DD CARD

Please help me to get rid of this error. Also, I would like to know what is the limit to mention and the format.

TIA.

by **dick scherrer** » Tue Sep 16, 2008 12:18 am

Hello,

I'm not aware of a limit, but believe that you will have no problem if there is one.

Continue following this scheme:

Select all

$$DD01 COPY IF=(1,EQ,C'AAAAAA'),OR=(1,EQ,C'BBBBBB'),
OR=(1,EQ,C'CCCCCC'),OR=(1,EQ,C'DDDDDD')

and let us know what happens.

by **ranga_subham** » Tue Sep 16, 2008 5:32 pm

Hello, there will be no problem if there is one

I have too many strings to search :mrgreen:

Thanks.

by **dick scherrer** » Wed Sep 17, 2008 1:25 am

Hello,

Depending on how many, you might want to put them in a file and then match the 2 files (once both files are in sequence from 1-6).

IBM Mainframe Forum

Limit in $$DD01 - FileAid.

Limit in $$DD01 - FileAid.

Re: Limit in $$DD01 - FileAid.

Re: Limit in $$DD01 - FileAid.

Re: Limit in $$DD01 - FileAid.