Do a lookup operation within a file

samuel_Inba · New User Joined: 03 Jan 2008 Posts: 53 Location: Chennai

I am trying to do a lookup operation within a file,

file1 is my input file with 1-9 chars as key and this same key may present in cols 51 thru 59. Now I need to change the rows which has the matching key with sum text and non-matching with some specified text.

If I hard code the values, its working fine... but if give the position of the key its not working... It says "ICE111A E REFORMATTING FIELD ERROR
".

//*===========================================================
//* LOOKUP
//*===========================================================
//S1 EXEC PGM=ICETOOL
//*
//SYSOUT DD SYSOUT=*
//I1 DD DSN=FILE1,DISP=SHR
//O1 DD DSN=FILE2,DISP=(OLD,CATLG,DELETE),
// SPACE=(CYL,(10,8),RLSE),RECFM=FB
//TOOLMSG DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYMNAMES DD DSN=SAM.SYMBOLS,DISP=SHR
//TOOLIN DD *
COPY FROM(I1) TO(O1) USING(CT01)
/*

//CT01CNTL DD *
SORT FIELDS=COPY
OUTFIL FNAMES=O1,
OUTREC=(1,9,CHANGE=(9,A,B),
NOMATCH=(C'NOT FND'),1,650)
/*

Content of symbol file:

* FIELDS
A,1,9,CH
B,51,9,CH

Pls suggest...

Thanks in advance.

-Sam.

Frank Yaeger · Posted: Tue Apr 08, 2008 10:03 pm

Well, you can't be using A for the symbol name because that's a reserved word and you'd get an error message for it. So assuming you're using something valid (like a), your CHANGE operand would be translated to:

1,9,CHANGE=(9,1,9,51,9)

This is NOT valid syntax for CHANGE. The format is (v,find,set) where v is the length (9 in your case), find is a constant and set is a field or constant. You have a field for find instead of a constant.