PGM                                                                
/*-------------------------------------------------------------------*/         
/*   TESTPACK  : PACK 十進数から文字列への変換                       */         
/*                                                                   */         
/*   2017/02/13  作成                                                */         
/*-------------------------------------------------------------------*/         
             DCL        VAR(&CHAR03) TYPE(*CHAR) LEN(3) +                       
                          VALUE(X'01240F')                                      
             DCL        VAR(&CHAR03_P) TYPE(*PTR) ADDRESS(&CHAR03 0)            
             DCL        VAR(&PACK05_P) TYPE(*PTR)                               
             DCL        VAR(&PACK05) TYPE(*DEC) STG(*BASED) LEN(5 0) +          
                          BASPTR(&PACK05_P)                                     
             DCL        VAR(&CHAR5) TYPE(*CHAR) LEN(5)                          
             DCL        VAR(&SURYO) TYPE(*DEC) LEN(5 0)                         
                                                                                
             /*( 文字 3 桁 (PACK05C)->PACK(5, 0) */                             
             CHGVAR     VAR(&PACK05_P) VALUE(&CHAR03_P)                         
             /*( PACK(5,0) -> 文字 5 桁 (CHAR05) )*/                            
             CHGVAR     VAR(&CHAR5) VALUE(&PACK05)                              
             SNDPGMMSG  MSG('SURYO=' *CAT &CHAR5) MSGTYPE(*DIAG)                
             RETURN                                                             
                                                                                
             ENDPGM