PGM        PARM(&FONTINFOP)                                        
/*-------------------------------------------------------------------*/         
/*   TESTCMD2   :   ブリンターの開始 2                               */         
/*-------------------------------------------------------------------*/         
             DCL        VAR(&FONTINFOP) TYPE(*CHAR) LEN(18)                     
             DCL        VAR(&FONTINFOB) TYPE(*CHAR) LEN(18)                     
             DCL        VAR(&FONTINFO) TYPE(*CHAR) LEN(16)                      
             DCL        VAR(&PRMSU) TYPE(*CHAR) LEN(2) /* 2 進数  */            
             DCL        VAR(&FONT) TYPE(*CHAR) LEN(14)                          
             DCL        VAR(&FTSIZE_P) TYPE(*PTR) ADDRESS(&FONTINFOB 16)        
             DCL        VAR(&FTSIZE) TYPE(*DEC) STG(*BASED) LEN(2 0) +          
                          BASPTR(&FTSIZE_P)                                     
             DCL        VAR(&FLD2) TYPE(*CHAR) LEN(2)                           
             DCL        VAR(&FTSIZEC) TYPE(*CHAR) LEN(2)                        
             DCL        VAR(&FLD8) TYPE(*CHAR) LEN(8)                           
                                                                                
             /*( FONTINFO パラメータの取得 )*/                                  
             CHGVAR     VAR(&FONTINFOB) VALUE(&FONTINFOP)                       
             CHGVAR     VAR(&PRMSU) VALUE(%SST(&FONTINFOP 1 2))                 
             IF         COND(%BIN(&PRMSU) *EQ 1) THEN(DO)                       
             CHGVAR     VAR(&FONT) VALUE(%SST(&FONTINFOP 3 14))                 
             ENDDO                                                              
             ELSE       CMD(DO)                                                 
             CHGVAR     VAR(&FONT) VALUE(%SST(&FONTINFOP 3 14))                 
             CHGVAR     VAR(&FLD8) VALUE(&FTSIZE)                               
             CHGVAR     VAR(&FTSIZEC) VALUE(%SST(&FLD8 6 2))                    
             ENDDO                                                              
             CHGVAR     VAR(&FONTINFO) VALUE(&FONT *CAT &FTSIZEC)               
                                                                                
             SNDPGMMSG  MSG('FONTINFO=' *CAT &FONTINFO) +                       
                          MSGTYPE(*DIAG)                                        
             ENDPGM