converting lowercase to uppercase using synctool
Select messages from
# through # FAQ
[/[Print]\]

MVSFORUMS.com -> Utilities

#1: converting lowercase to uppercase using synctool Author: viji PostPosted: Mon Jan 27, 2003 2:26 pm
    —
Hi,
How to convert my data in lowercase to uppercase using synctool.
In Dfsort we have the option TRAN=LTOU. what about in synctool????

#2:  Author: kolusuLocation: San Jose PostPosted: Mon Jan 27, 2003 2:51 pm
    —
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



MVSFORUMS.com -> Utilities


output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group