A*%%TS  SD  20170525  155252  QTR         REL-V6R1M0  5761-WDS             
     A*%%EC                                                                     
     A                                      DSPSIZ(24 80 *DS3)                  
     A                                      MSGLOC(24)                          
     A                                      PRINT                               
     A          R POPRCD                                                        
     A*  WINDOW( 開始行  開始桁  行数  桁数 )                                   
     A                                      CLRL(*NO)                           
     A                                      OVERLAY                             
     A                                      PUTOVR                              
     A                                      PROTECT                             
     A                                      BLINK                               
     A                                      CF03(03 ' 終了 ')                   
     A                                  8 37'RECORD タイプの POPUP'             
     A                                      DSPATR(HI)                          
     A                                 10 64DATE EDTCDE(Y)                      
     A                                 12 32' これは CLRL(*NO) キー・ワード +   
     A                                       による '                           
     A                                 13 33'POPUP ウィンドウです。 '           
     A                                 15 33'OVERLAY PUTOVR による方法です。 '  
     A                                 17 32'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A* ウィンドウ・ボーダー                                                    
     A          R BORDER                                                        
     A*%%TS  SD  20170525  155252  QTR         REL-V6R1M0  5761-WDS             
     A                                      OVERLAY                             
     A                                      CLRL(*NO)                           
     A                                      PUTOVR                              
     A                                  7 27' ┏━━━━━━━━━━━━━━━ +
     A                                       ━━━━━━━━┓ '               
     A                                      COLOR(BLU)                          
     A                                  8 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                  9 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                  8 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                  9 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 10 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 10 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 11 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 11 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 12 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 13 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 14 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 15 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 16 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 17 75' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 16 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 15 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 14 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 13 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 12 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 17 27' ┃ '                              
     A                                      COLOR(BLU)                          
     A                                 18 27' ┗━━━━━━━━━━━━━━━ +
     A                                       ━━━━━━━━┛ '               
     A                                      COLOR(BLU)                          
     A                                  8 33'                                  -
     A                                            '                             
     A                                  9 33'                                  -
     A                                            '                             
     A                                 10 33'                                  -
     A                                            '                             
     A                                 11 33'                                  -
     A                                            '                             
     A                                 12 33'                                  -
     A                                            '                             
     A                                 13 33'                                  -
     A                                            '                             
     A                                 17 33'                                  -
     A                                            '                             
     A* ウインドウの背景を消去させないために                                    
     A* ASSUME レコードが必要です。                                             
     A          R #DUMMY                    ASSUME                              
     A            DMY            2   O  1  2DSPATR(ND)