PGM                                                                
/*---------------------------------------------------------*/                   
/*   QDCXLATE による  英小文字／大文字変換                 */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&OUTBUF) TYPE(*CHAR) LEN(5000)                      
             DCL        VAR(&BLANKS) TYPE(*CHAR) LEN(5000)                      
             DCL        VAR(&BUFLEN) TYPE(*CHAR) LEN(3) /* 5 桁 PACK */         
             DCL        VAR(&MAXOTL) TYPE(*CHAR) LEN(3) +                       
                          VALUE(X'05000F') /* 5 桁 PACK */                      
             DCL        VAR(&OUTLEN) TYPE(*CHAR) LEN(3) +                       
                          VALUE(X'00000F') /* 5 桁 PACK */                      
             DCL        VAR(&RCVDTA) TYPE(*CHAR) LEN(5000)                      
             DCL        VAR(&SNDDTA) TYPE(*CHAR) LEN(5000)                      
/************/                                                                  
    CAPS:          /* SMALL  から CAPS への変換 */                              
/************/                                                                  
             CHGVAR     VAR(&OUTBUF) VALUE(&BLANKS)                             
             CALL       PGM(QDCXLATE) PARM(&BUFLEN &RCVDTA +                    
                          'QSYSTRNTBL' 'QSYS    ' &OUTBUF &MAXOTL +             
                          &OUTLEN '*JPN' 'Y' '*AE       ')                      
             MONMSG     MSGID(CPF2600) EXEC(GOTO CMDLBL(ENDCNV))