kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12359 Topics: 75 Location: San Jose
|
Posted: Mon Jan 27, 2003 2:51 pm Post subject: |
|
|
Viji,
Unfortunately there is no function in syncsort which converts the lowercase to uppercase and vice-versa. But if you have file-aid at your shop then the following JCl will give you the desired results.
Code: |
//STEP0100 EXEC PGM=FILEAID
//*
//SYSLIST DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DD01 DD DSN=INPUT.FILE,
// DISP=SHR
//DD01O DD DSN=OUTPUT.FILE,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(X,Y),RLSE),
// DCB=(RECFM=FB,LRECL=ZZZ,BLKSIZE=0)
//SYSIN DD *
$$DD01 COPY REPLALL=(01,00,X'81',C'A'),
REPLALL=(01,00,X'82',C'B'),
REPLALL=(01,00,X'83',C'C'),
REPLALL=(01,00,X'84',C'D'),
REPLALL=(01,00,X'85',C'E'),
REPLALL=(01,00,X'86',C'F'),
REPLALL=(01,00,X'87',C'G'),
REPLALL=(01,00,X'88',C'H'),
REPLALL=(01,00,X'89',C'I'),
REPLALL=(01,00,X'91',C'J'),
REPLALL=(01,00,X'92',C'K'),
REPLALL=(01,00,X'93',C'L'),
REPLALL=(01,00,X'94',C'M'),
REPLALL=(01,00,X'95',C'N'),
REPLALL=(01,00,X'96',C'O'),
REPLALL=(01,00,X'97',C'P'),
REPLALL=(01,00,X'98',C'Q'),
REPLALL=(01,00,X'99',C'R'),
REPLALL=(01,00,X'A2',C'S'),
REPLALL=(01,00,X'A3',C'T'),
REPLALL=(01,00,X'A4',C'U'),
REPLALL=(01,00,X'A5',C'V'),
REPLALL=(01,00,X'A6',C'W'),
REPLALL=(01,00,X'A7',C'X'),
REPLALL=(01,00,X'A8',C'Y'),
REPLALL=(01,00,X'A9',C'Z'),OUT=0
/*
|
Hope this helps...
cheers
kolusu |
|