CL

11. 英大文字/小文字の変換

API QDCXLATE は、英小文字/英大文字の相互変換を実現する。

0001.00              PGM                                
0002.00 /*---------------------------------------------------------*/     
0003.00 /*   QDCXLATE による  英小文字/大文字変換                 */    
0004.00 /*---------------------------------------------------------*/     
0005.00              DCL        VAR(&OUTBUF) TYPE(*CHAR) LEN(5000)     
0006.00              DCL        VAR(&BLANKS) TYPE(*CHAR) LEN(5000)        
0007.00              DCL        VAR(&BUFLEN) TYPE(*CHAR) LEN(3) /* 5 桁 PACK */ 
0008.00              DCL        VAR(&MAXOTL) TYPE(*CHAR) LEN(3) +       
0009.00                           VALUE(X'05000F') /* 5 桁 PACK */         
0010.00              DCL        VAR(&OUTLEN) TYPE(*CHAR) LEN(3) +        
0011.00                           VALUE(X'00000F') /* 5 桁 PACK */       
0012.00              DCL        VAR(&RCVDTA) TYPE(*CHAR) LEN(5000)    
0013.00              DCL        VAR(&SNDDTA) TYPE(*CHAR) LEN(5000)     
0014.00 /************/                                                     
0015.00     CAPS:          /* SMALL  から CAPS への変換 */                
0016.00 /************/                                                  
0017.00              CHGVAR     VAR(&OUTBUF) VALUE(&BLANKS)             
0018.00              CALL       PGM(QDCXLATE) PARM(&BUFLEN &RCVDTA +   
0019.00                           'QSYSTRNTBL' 'QSYS    ' &OUTBUF &MAXOTL + 
0020.00                           &OUTLEN '*JPN' 'Y' '*AE       ')