kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12369 Topics: 75 Location: San Jose
|
Posted: Tue Nov 18, 2003 12:27 pm Post subject: |
|
|
Patnekar,
well there is a way to change all the low-values to spaces. But this would involve coding a change command for each and every position in your file.Assuming that your input file is 80 bytes Lrecl and FB format, the following JCL will give you the desired results.
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=YOUR INPUT DSN,
// DISP=SHR
//SORTOUT DD DSN=YOUR OUTPUT DSN,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL OUTREC=(01,1,CHANGE=(1,X'00',X'40'),NOMATCH=(01,1),
02,1,CHANGE=(1,X'00',X'40'),NOMATCH=(02,1),
03,1,CHANGE=(1,X'00',X'40'),NOMATCH=(03,1),
04,1,CHANGE=(1,X'00',X'40'),NOMATCH=(04,1),
05,1,CHANGE=(1,X'00',X'40'),NOMATCH=(05,1),
06,1,CHANGE=(1,X'00',X'40'),NOMATCH=(06,1),
07,1,CHANGE=(1,X'00',X'40'),NOMATCH=(07,1),
08,1,CHANGE=(1,X'00',X'40'),NOMATCH=(08,1),
09,1,CHANGE=(1,X'00',X'40'),NOMATCH=(09,1),
10,1,CHANGE=(1,X'00',X'40'),NOMATCH=(10,1),
11,1,CHANGE=(1,X'00',X'40'),NOMATCH=(11,1),
12,1,CHANGE=(1,X'00',X'40'),NOMATCH=(12,1),
13,1,CHANGE=(1,X'00',X'40'),NOMATCH=(13,1),
14,1,CHANGE=(1,X'00',X'40'),NOMATCH=(14,1),
15,1,CHANGE=(1,X'00',X'40'),NOMATCH=(15,1),
16,1,CHANGE=(1,X'00',X'40'),NOMATCH=(16,1),
17,1,CHANGE=(1,X'00',X'40'),NOMATCH=(17,1),
18,1,CHANGE=(1,X'00',X'40'),NOMATCH=(18,1),
19,1,CHANGE=(1,X'00',X'40'),NOMATCH=(19,1),
20,1,CHANGE=(1,X'00',X'40'),NOMATCH=(20,1),
21,1,CHANGE=(1,X'00',X'40'),NOMATCH=(21,1),
22,1,CHANGE=(1,X'00',X'40'),NOMATCH=(22,1),
23,1,CHANGE=(1,X'00',X'40'),NOMATCH=(23,1),
24,1,CHANGE=(1,X'00',X'40'),NOMATCH=(24,1),
25,1,CHANGE=(1,X'00',X'40'),NOMATCH=(25,1),
26,1,CHANGE=(1,X'00',X'40'),NOMATCH=(26,1),
27,1,CHANGE=(1,X'00',X'40'),NOMATCH=(27,1),
28,1,CHANGE=(1,X'00',X'40'),NOMATCH=(28,1),
29,1,CHANGE=(1,X'00',X'40'),NOMATCH=(29,1),
30,1,CHANGE=(1,X'00',X'40'),NOMATCH=(30,1),
31,1,CHANGE=(1,X'00',X'40'),NOMATCH=(31,1),
32,1,CHANGE=(1,X'00',X'40'),NOMATCH=(32,1),
33,1,CHANGE=(1,X'00',X'40'),NOMATCH=(33,1),
34,1,CHANGE=(1,X'00',X'40'),NOMATCH=(34,1),
35,1,CHANGE=(1,X'00',X'40'),NOMATCH=(35,1),
36,1,CHANGE=(1,X'00',X'40'),NOMATCH=(36,1),
37,1,CHANGE=(1,X'00',X'40'),NOMATCH=(37,1),
38,1,CHANGE=(1,X'00',X'40'),NOMATCH=(38,1),
39,1,CHANGE=(1,X'00',X'40'),NOMATCH=(39,1),
40,1,CHANGE=(1,X'00',X'40'),NOMATCH=(40,1),
41,1,CHANGE=(1,X'00',X'40'),NOMATCH=(41,1),
42,1,CHANGE=(1,X'00',X'40'),NOMATCH=(42,1),
43,1,CHANGE=(1,X'00',X'40'),NOMATCH=(43,1),
44,1,CHANGE=(1,X'00',X'40'),NOMATCH=(44,1),
45,1,CHANGE=(1,X'00',X'40'),NOMATCH=(45,1),
46,1,CHANGE=(1,X'00',X'40'),NOMATCH=(46,1),
47,1,CHANGE=(1,X'00',X'40'),NOMATCH=(47,1),
48,1,CHANGE=(1,X'00',X'40'),NOMATCH=(48,1),
49,1,CHANGE=(1,X'00',X'40'),NOMATCH=(49,1),
50,1,CHANGE=(1,X'00',X'40'),NOMATCH=(50,1),
51,1,CHANGE=(1,X'00',X'40'),NOMATCH=(51,1),
52,1,CHANGE=(1,X'00',X'40'),NOMATCH=(52,1),
53,1,CHANGE=(1,X'00',X'40'),NOMATCH=(53,1),
54,1,CHANGE=(1,X'00',X'40'),NOMATCH=(54,1),
55,1,CHANGE=(1,X'00',X'40'),NOMATCH=(55,1),
56,1,CHANGE=(1,X'00',X'40'),NOMATCH=(56,1),
57,1,CHANGE=(1,X'00',X'40'),NOMATCH=(57,1),
58,1,CHANGE=(1,X'00',X'40'),NOMATCH=(58,1),
59,1,CHANGE=(1,X'00',X'40'),NOMATCH=(59,1),
60,1,CHANGE=(1,X'00',X'40'),NOMATCH=(60,1),
61,1,CHANGE=(1,X'00',X'40'),NOMATCH=(61,1),
62,1,CHANGE=(1,X'00',X'40'),NOMATCH=(62,1),
63,1,CHANGE=(1,X'00',X'40'),NOMATCH=(63,1),
64,1,CHANGE=(1,X'00',X'40'),NOMATCH=(64,1),
65,1,CHANGE=(1,X'00',X'40'),NOMATCH=(65,1),
66,1,CHANGE=(1,X'00',X'40'),NOMATCH=(66,1),
67,1,CHANGE=(1,X'00',X'40'),NOMATCH=(67,1),
68,1,CHANGE=(1,X'00',X'40'),NOMATCH=(68,1),
70,1,CHANGE=(1,X'00',X'40'),NOMATCH=(70,1),
71,1,CHANGE=(1,X'00',X'40'),NOMATCH=(71,1),
72,1,CHANGE=(1,X'00',X'40'),NOMATCH=(72,1),
73,1,CHANGE=(1,X'00',X'40'),NOMATCH=(73,1),
74,1,CHANGE=(1,X'00',X'40'),NOMATCH=(74,1),
75,1,CHANGE=(1,X'00',X'40'),NOMATCH=(75,1),
76,1,CHANGE=(1,X'00',X'40'),NOMATCH=(76,1),
77,1,CHANGE=(1,X'00',X'40'),NOMATCH=(77,1),
78,1,CHANGE=(1,X'00',X'40'),NOMATCH=(78,1),
79,1,CHANGE=(1,X'00',X'40'),NOMATCH=(79,1),
80,1,CHANGE=(1,X'00',X'40'),NOMATCH=(80,1))
//*
|
Hope this helps...
cheers
kolusu
PS: If your input lrecl is bigger than I would suggest writting a cobol pgm with 1 single INSPECT statement and get the desired results. |
|