小J的小小世界

取得民國年

*================================================================     
* Y#2000  ( 取得 YEAR 2000 之民國 YYMMDD , HHMMSS )                   
*================================================================     
           Y#2000    BEGSR                                            
*=                                                                    
                     TIME           Z#TIME 140                        
                     MOVELZ#TIME    ZZTIME  60         1 ~  6         
                     MOVE Z#TIME    ZZDATE  80         7 ~ 14         
*                                                                     
           ZZDATE    SUB  19110000  SDATE   80        民國年月日      
                     Z-ADDZZTIME    STIME   60        時分秒          
*=                                                                    
                     ENDSR      

================================================================

取得DTAARA資料

CLP

RTVDTAARA  DTAARA(*LDA (204 4)) RTNVAR(&STNX) 

RPG

*NAMVAR   DEFN *LDA      DTAARA
          IN   *NAMVAR         

===============================================================

判斷欄位

IF         COND(%SST(&D#D 1 2) *NE %SST(&D#C 1 2)) +     
             THEN(DO)                                    
CHGVAR     VAR(&IN32) VALUE('1')                         
CHGVAR     VAR(&IN99) VALUE('1')                         
CHGVAR     VAR(&HINT) +                                  
             VALUE(' 客戶代號前２碼必須等於所站的１～２ +
              碼 ')                                      

ENDDO