PGM                                                                
/*---------------------------------------------------------*/                   
/*   DSPATR   :    表示属性パターン                        */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCLF       FILE(QTROBJ/DSPATRFM)                                   
                                                                                
 DSPLY:      SNDRCVF    RCDFMT(DSPHEAD)                                         
             IF         COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(END))              
             GOTO       DSPLY                                                   
 END:        RETURN                                                             
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
             IF         COND(&MSG *NE ' ') THEN(DO)                             
             SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDDO                                                              
             ENDPGM