A*%%TS  SD  20160314  152552  QTR         REL-V6R1M0  5761-WDS             
     A*-----------------------------------------------*                         
     A*  SFLENT :  サブ・ファイル入力                                           
     A*                                                                         
     A*        家具販売サイト                                                   
     A*                                                                         
     A*-----------------------------------------------*                         
     A*%%EC                                                                     
     A                                      DSPSIZ(27 132 *DS4)                 
     A  *DS4                                MSGLOC(27)                          
     A                                      PRINT                               
     A          R DSPHEAD                                                       
     A                                      TEXT(' 初期画面 ')                  
     A*%%TS  SD  19930612  135725  QUATTRO     REL-V2R1M0  5738-PW1             
     A                                      CF03(03 ' 終了 ')                   
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A*( この後に表示内容を記述しなさい )                                       
     A*     ｴﾗｰ 標識 :61 - 69                                                   
     A                                      CSRLOC(LIN        POS)              
     A                                  1 27' 家具販売サイト '                  
     A                                      DSPATR(RI)                          
     A                                      COLOR(PNK)                          
     A                                  2  2' 家具番号 '                        
     A            SPCODE         7A  B  2 15TEXT(' 家具番号 ')                  
     A                                 11 15' 必要な項目を打鍵して実行キーを押 +
     A                                       して下さい。 '                     
     A                                      DSPATR(HI)                          
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A            LIN            3S 0H                                          
     A            POS            3S 0H                                          
     A          R SFREC01                   SFL                                 
     A*%%TS  SD  20160314  152552  QTR         REL-V6R1M0  5761-WDS             
     A                                      TEXT(' ＳＦＬレコード ')            
     A  20                                                                      
     AO 99                                  SFLNXTCHG                           
     A            GYO            4A  H      TEXT(' �Y ')                        
     A            SPNAME        36O  O  2 10TEXT(' 家具名 BOLD')                
     A                                      COLOR(BLU)                          
     A            SPCODE         7A  O  2 48TEXT('ITALIC')                      
     A            SPTANK         7Y 0O  2 62TEXT(' 定価  FONTSIZE=1.4')         
     A                                      COLOR(RED)                          
     A                                      EDTCDE(1)                           
     A                                  2 75' 円 '                              
     A                                      COLOR(RED)                          
     A*                                                                         
     A            SPDES01       70O  O  3 12TEXT(' 説明 1')                     
     A            SPDES02       70O  O  4 12TEXT(' 説明 2')                     
     A*           SPDES03       70O  O  5 12TEXT(' 説明 2')                     
     A*                                                                         
     A                                  5 12'( レビュー '                       
     A            SPRVIES        4Y 0O  5 24TEXT(' レビュー ')                  
     A                                      EDTCDE(Z)                           
     A                                      COLOR(PNK)                          
     A                                  5 29')'                                 
     A                                  6  2'''<HR>'''                          
     A            IMGTAG       120A  O    +1TEXT(' 写真 URL POS(2,1)')          
     A*                                                                         
     A          R SFCTL01                   SFLCTL(SFREC01)                     
     A*%%TS  SD  20080109  094723  QTR         REL-V5R4M0  5722-WDS             
     A                                      SFLSIZ(0006)                        
     A                                      SFLPAG(0005)                        
     A                                      TEXT(' ＳＦＬコントロール ')        
     A                                      OVERLAY                             
     A  41                                  SFLDSPCTL                           
     A  42                                  SFLDSP                              
     A  43                                  SFLINZ                              
     A                                      SFLRNA                              
     A  44                                  SFLCLR                              
     A* 45                                  SFLEND(*SCRBAR)                     
     A  46                                  SFLDLT                              
     A                                      ROLLUP(14 ' 次頁 ')                 
     A                                      ROLLDOWN(15 ' 前頁 ')               
     A                                      CF03(03 ' 終了 ')                   
     A                                      CF10(10 ' 更新 ')                   
     A                                      CF23(23 ' 削除 ')                   
     A                                      CF12(12 ' 前画面 ')                 
     A                                      SETOF(99)                           
     A                                      BLINK                               
     A  61                                  SFLMSGID(EDT0411 QPDA/QEDTMSG 61)   
     A  62                                  SFLMSGID(EDT0410 QPDA/QEDTMSG 62)   
     A  63                                  SFLMSG(' 品種 ｺｰﾄﾞ の誤りです。    -
     A                                                                ' 63)     
     A                                  1  2HTML('TEMPLATE=/AS400-NET.USR-      
     A                                      /TEMPLATE/QTROBJ/PGM221FM/-         
     A                                      SFCTL01.HTM')                       
     A            DSPREC         4S 0H      SFLRCDNBR(CURSOR)                   
     A                                      TEXT('SFL 表示 ﾚｺｰﾄﾞ �Y ')          
     A*                                 1 47' 家具販売サイト '                  
     A*                                     DSPATR(RI)                          
     A*                                     COLOR(PNK)                          
     A            CART1          2Y 0B  1  4PSHBTNFLD                           
     A                                      PSHBTNCHC(1 ' カートに入れる ')     
     A                                  1  4HTML('POS(4,66)')                   
     A            CART2          2Y 0B  1 24PSHBTNFLD                           
     A                                      PSHBTNCHC(1 ' カートに入れる ')     
     A                                  1 24HTML('POS(9,66)')                   
     A            CART3          2Y 0B  1 44PSHBTNFLD                           
     A                                      PSHBTNCHC(1 ' カートに入れる ')     
     A                                  1 44HTML('POS(14,66)')                  
     A            CART4          2Y 0B  1 64PSHBTNFLD                           
     A                                      PSHBTNCHC(1 ' カートに入れる ')     
     A                                  1 64HTML('POS(19,66)')                  
     A            CART5          2Y 0B  1 84PSHBTNFLD                           
     A                                      PSHBTNCHC(1 ' カートに入れる ')     
     A                                  1 84HTML('POS(24,66)')                  
     A*( 明細行の桁見出し )                                                     
     A*     ｴﾗｰ 標識 :61 - 69                                                   
     A            LIN            3S 0H                                          
     A            POS            3S 0H                                          
     A*( 見出しの項目 )                                                         
     A          R DSPEND01                                                      
     A                                      TEXT(' 機能キーの表示 ')            
     A*----------------------------------------------------*                    
     A*%%TS  SD  19930619  172426  QUATTRO     REL-V2R1M0  5738-PW1             
     A                                      OVERLAY                             
     A            PREV           2Y 0B 27 54PSHBTNFLD                           
     A                                      PSHBTNCHC(1 ' ＜ ' ROLLDOWN)        
     A            NEXT           2Y 0B 27 62PSHBTNFLD                           
     A                                      PSHBTNCHC(1 ' ＞ ' ROLLUP)          
     A                                                                          
     A          R ENDOPT                                                        
     A*%%TS  SD  19930612  150356  NIK         REL-V2R1M0  5738-PW1             
     A                                      TEXT(' 終了画面 ')                  
     A                                      CF03(03 ' 終了 ')                   
     A                                      CSRLOC(LIN        POS)              
     A                                  1 34' 終了 '                            
     A                                      COLOR(PNK)                          
     A                                      DSPATR(HI)                          
     A                                  3  2' 処理されたレコード数 '            
     A                                  5 10' 追加  . . . . . :'                
     A            ADDREC         5Y 0O  5 35EDTCDE(4)                           
     A                                  6 10' 変更  . . . . . :'                
     A            CHGREC         5Y 0O  6 35EDTCDE(4)                           
     A                                  7 10' 削除  . . . . . :'                
     A            DLTREC         5Y 0O  7 35EDTCDE(4)                           
     A                                 11  2' 選択項目を打鍵して，実行キーを押 +
     A                                       してください。 '                   
     A                                      COLOR(BLU)                          
     A                                 13  5' データ入力の終了  . . . . . .'    
     A            ANS            1A  B 13 39VALUES('Y' 'N')                     
     A                                 13 53'Y=YES, N=NO'                       
     A                                 23  2'F3= 終了 '                         
     A                                      COLOR(BLU)                          
     A                                 23 15'F12= 前画面 '                      
     A                                      COLOR(BLU)                          
     A            LIN            3S 0H                                          
     A            POS            3S 0H