A*%%TS  SD  20070731  210529  QTR         REL-V5R4M0  5722-WDS             
     A*-----------------------------------------------*                         
     A*  SFLENT :  サブ・ファイル入力                                           
     A*                                                                         
     A*        受注の入力                                                       
     A*                                                                         
     A*-----------------------------------------------*                         
     A*%%EC                                                                     
     A                                      DSPSIZ(24 80 *DS3)                  
     A*                                     MSGLOC(24)                          
     A                                      PRINT                               
     A                                      HELP                                
     A                                      ALTHELP(CA01)                       
     A                                      HLPPNLGRP(PGM201H QTROBJ/PGM201H)   
     A                                      HLPTITLE(' 受注の入力 ')            
     A          R DSPHEAD                   OVERLAY                             
     A*%%TS  SD  20070713  162403  QTR         REL-V5R4M0  5722-WDS             
     A                                      TEXT(' 初期画面 ')                  
     A                                      CF03(03 ' 終了 ')                   
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A          H                           HLPARA(2 12 2 17)                   
     A                                      HLPPNLGRP('PGM201/JUCNO' -          
     A                                      QTROBJ/PGM201H)                     
     A                                  1 27' 受注の入力 '                      
     A                                      DSPATR(HI)                          
     A                                  2  2' 受注�Y '                          
     A            JUCNO          5Y 0B  2 12TEXT(' 受注�Y ')                    
     A                                      CHECK(RZ)                           
     A                                      CHECK(ER)                           
     A                                 11 15' 必要な項目を打鍵して実行キーを押 +
     A                                       して下さい。 '                     
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)