AJAYREDDY
New User
Joined: 17 Feb 2007 Posts: 52 Location: USA
|
|
|
|
Sorry, I overlooked into it. I was assuming it is the length parameter from Starting Postion. I changed it to 227 and it worked.
//SYSIN DD *
SORT FIELDS=COPY
INREC FINDREP=(STARTPOS=223,ENDPOS=227,IN=C'L',OUT=C'0')
/*
I replaced entire Sort card with below and it worked for all other records.
SORT FIELDS=COPY
INREC FINDREP=(STARTPOS=223,ENDPOS=227,
IN=(C'A',C'B',C'C',C'D',C'E',C'F',C'G',C'H',C'I',
C'J',C'K',C'L',C'M',C'N',C'O',C'P',C'Q',C'R',
C'S',C'T',C'U',C'V',C'W',C'X',C'Y',C'Z',
C'a',C'b',C'c',C'd',C'e',C'f',C'g',C'h',C'i',
C'j',C'k',C'l',C'm',C'n',C'o',C'p',C'q',C'r',
C's',C't',C'u',C'v',C'w',C'x',C'y',C'z',
C'~',C'`',C'!',C'@',C'#',C'$',C'%',C'¢',C'&',
C'*',C'(',C')',C'_',C'-',C'+',C'=',C'{',C'}',
C'¬',C'¦',C'|',C'\',C':',C';',C'"',C'?',C'/',
C'>',C'<',C'.',C',',C'[',C']',C' ',C''''),
OUT=C'0')
Thanks |
|