SAMPLE750_MAN

$SELECT  S:MARKET    $VALIDATE  M:  C:UCASE    $CALCULATE  'U:COLDSTORE_MAN;GRID_INIT;G\GRID  A:VAR;I\CM_CODE;I\CM_CODE;00  

$VALIDATE    'CHECK THAT THE THIRD DIGIT IS A ":"  A:MID;I\CM_TRADE_TO,3,1;I\TMP2  I:I\TMP2;<>;:  D:ENTER IN FORMAT XX:XX;ERRORM;I\CM_TRADE_TO    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\CM_TRADE_TO,2;I\TMP3  I:I\TMP3;>;23  D:CANNOT BE GREATER THAN 23:59;ERRORM;I\CM_TRADE_TO    'CHECK THAT THE L

$CALCULATE  A:VAR;I\CM_DUES;I\CM_DUES;00.00    $VALIDATE  I:I\CM_DUES;<>;  DO  I:I\CM_DUES;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_DUES  END DO  

$CALCULATE  A:VAR;I\CM_TRAN_FEE;I\CM_TRAN_FEE;00.00    $VALIDATE  I:I\CM_TRAN_FEE;<>;  DO  I:I\CM_TRAN_FEE;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_TRAN_FEE  END DO

$VALIDATE    'CHECK THAT THE THIRD DIGIT IS A ":"  A:MID;I\CM_TRADE_FROM,3,1;I\TMP2  I:I\TMP2;<>;:  D:ENTER IN FORMAT XX:XX;ERRORM;I\CM_TRADE_FROM    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\CM_TRADE_FROM,2;I\TMP3  I:I\TMP3;>;23  D:CANNOT BE GREATER THAN 23:59;ERRORM;I\CM_TRADE_FROM    'CHECK TH

$DEFAULT    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    

$SELECT  S:MARKET;I\CM_CODE

$VALIDATE  M:  C:UCASE  

$VALIDATE  C:UCASE  

$VALIDATE  C:UCASE  

$VALIDATE  C:UCASE  

$VALIDATE  M:  A:VAR;I\CM_PCODE;I\CM_PCODE;;0000  

$VALIDATE  'CHECKS FOR '@' IN THE EMAIL ADDRESS  I:I\CM_EMAIL;<>;  DO  U:NUMBER_VALIDATE;EMAIL_CHK;I\CM_EMAIL,@,I\TMP5  'IF '@' IS NOT FOUND IN THE EMAIL ADDRESS, DISPLAY AN ERROR MESSAGE  I:I\TMP5;<>;Y  D:INVALID EMAIL ADDRESS;ERRORM;I\CM_EMAIL  END DO    

$VALIDATE  'CHECKS THAT '0' IS THE FIRST CHARACTER IN THE FAX NUMBER IF ITS NOT NULL  I:I\CM_FAXNO;<>;  DO  U:NUMBER_VALIDATE;TELL_CHK;I\CM_FAXNO,0,I\TMP5  I:I\TMP5;<>;Y  D:INVALID FAX NUMBER;ERRORM;I\CM_FAXNO  END DO    A:CONST;;I\TMP5

$VALIDATE  'CHECKS THAT '0' IS THE FIRST CHARACTER IN THE TELEPHONE NUMBER IF ITS NOT NULL  I:I\CM_TELNO;<>;  DO  U:NUMBER_VALIDATE;TELL_CHK;I\CM_TELNO,0,I\TMP5  I:I\TMP5;<>;Y  D:INVALID TELEPHONE NUMBER;ERRORM;I\CM_TELNO  END DO    A:CONST;;I\TMP5

$VALIDATE  M:  

$SELECT  S:CLIENT TYPE    $VALIDATE  M:  C:UCASE  'LOOKS UP THE CLIENT TYPE, AND IF IT EXISTS, THE VALUE IS PUT INTO THE I\TMP1 FIELD  F:CLIENT_TYPE;Y;;I\CM_TYPE=CLT_CODE;CLT_CODE='$I\CM_CLTYPE$';    $CALCULATE  I:I\CM_CLTYPE;=;A  'T\CM_CLTYPE = AGENT?????????      

$SELECT  S:CLIENT TYPE;I\CM_CLTYPE

$SELECT  S:VAT    $VALIDATE  M:  A:VAR;I\CM_VATCODE;I\CM_VATCODE;00  C:UCASE  F:VAT_MAST;Y;;I\CM_VATCODE=VT_CODE;VT_CODE='$I\CM_VATCODE$';  

$SELECT  S:VAT;I\CM_VATCODE

$CALCULATE  A:VAR;I\CM_FARM_MKT_DUES;I\CM_FARM_MKT_DUES;00.00    $VALIDATE  I:I\CM_FARM_MKT_DUES;<>;  DO  I:I\CM_FARM_MKT_DUES;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_FARM_MKT_DUES  END DO

$CALCULATE  A:VAR;I\CM_DIRTDUE;I\CM_DIRTDUE;00.00    $VALIDATE  I:I\CM_DIRTDUE;<>;  DO  I:I\CM_DIRTDUE;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_DIRTDUE  END DO  

$CALCULATE  A:VAR;I\CM_WSDUES;I\CM_WSDUES;00.00    $VALIDATE  I:I\CM_WSDUES;<>;  DO  I:I\CM_WSDUES;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_WSDUES  END DO

$DEFAULT  B:READTABLE;D\CM_WSDUE_TYPE;CALC_TYPE;CT_CODE;SELECT CT_CODE FROM CALC_TYPE

$CALCULATE  A:VAR;I\CM_SMS_COST;I\CM_SMS_COST;00.00    $VALIDATE  I:I\CM_SMS_COST;<>;  DO  I:I\CM_SMS_COST;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_SMS_COST  END DO  

$DEFAULT  B:READTABLE;D\CM_DIRTDUE_TYPE;CALC_TYPE;CT_CODE;SELECT CT_CODE FROM CALC_TYPE

$VALIDATE  I:I\CM_MONTH_ARCH;<>;  DO  I:I\CM_MONTH_ARCH;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_MONTH_ARCH  DO END

$CALCULATE  A:VAR;I\CM_COMMPERC;I\CM_COMMPERC;00.00    $VALIDATE  I:I\CM_COMMPERC;<>;  DO  I:I\CM_COMMPERC;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_COMMPERC  END DO

$SELECT  S:CURRENCY    $VALIDATE  F:CURRENCY_MAST;Y;;I\CM_CURR=CM_CURR;CM_CURR='$I\CM_CURR$';

$SELECT  S:CURRENCY;I\CM_CURR  

$VALIDATE  C:UCASE  

$SELECT  S:REPORT    $VALIDATE  F:REPORT_FORMAT;Y;;I\CM_SUMM_SALE=CM_SUMM_SALE;CM_SUMM_SALE='$I\CM_SUMM_SALE$';

$SELECT  S:REPORT;I\CM_SUMM_SALE

$CALCULATE  A:VAR;I\CM_MKT_PUSAGE_FEE;I\CM_MKT_PUSAGE_FEE;00.00    $VALIDATE  I:I\CM_MKT_PUSAGE_FEE;<>;  DO  I:I\CM_MKT_PUSAGE_FEE;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_MKT_PUSAGE_FEE  END DO

$AFTER_UPDATE  U:ZZGRID_SPLIT;GRID_TO_DB;G\GRID;MARKET_PALL_ACC,MP_MARKET='I\MEMBER_NO'

$SELECT  S:PALLET_TYPE    $VALIDATE  F:PALL_TYPE;Y;;I\PALLET_TYPE=PTP_TYPE;PTP_TYPE='$I\PALLET_TYPE$';  

$SELECT  S:PALLET_TYPE;I\PALLET_TYPE  

$CALCULATE  I:I\MEMBER_NO;<>;  U:PALLET_TYPE;CODE_CHECK;I\MEMBER_NO,G\GRID,I\TMP10    I:I\TMP10;=;Y  D:THAT NUMBER ALREADY EXISTS;ERRORM;I\MEMBER_NO    'F:MARKET_PALL_ACC;    I:I\MEMBER_NO;=;  A:CONST;;I\PALLET_TYPE,I\MEMBER_NO  O:SETFOCUS;I\PALLET_TYPE  

$DEFAULT  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\WORK1,I\WORK2,I\WORK3,I\WORK4  'U:ZZGRID_SPLIT;DB_TO_GRID;G\GRID;MARKET_PALL_ACC

$CALCULATE  A:VAR;I\CM_GINTPER;I\CM_GINTPER;00.00    $VALIDATE  I:I\CM_GINTPER;<>;  DO  I:I\CM_GINTPER;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_GINTPER  END DO  

$CALCULATE  A:VAR;I\CM_GPENPER;I\CM_GPENPER;00.00    $VALIDATE  I:I\CM_GPENPER;<>;  DO  I:I\CM_GPENPER;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_GPENPER  END DO  

$CALCULATE  A:VAR;I\CM_GCLFACT;I\CM_GCLFACT;00.00    $VALIDATE  I:I\CM_GCLFACT;<>;  DO  I:I\CM_GCLFACT;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_GCLFACT  END DO  

$VALIDATE  I:I\CM_CLNPERIOD;<>;  DO  I:I\CM_CLNPERIOD;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_CLNPERIOD  END DO  

$SELECT  S:REPORT_FORMAT    $VALIDATE  F:REPORT_FORMAT;Y;;I\CM_BUY_TRAN=RF_CODE;RF_CODE='$I\CM_BUY_TRAN$';

$SELECT  S:BUYER    $VALIDATE  F:BUY_MAST;Y;;I\CM_CLUBFEE=BM_CODE;BM_CODE='$I\CM_CLUBFEE$';

$CALCULATE  A:VAR;I\CM_CON_BUYER;I\CM_CON_BUYER;00.00    $VALIDATE  I:I\CM_CON_BUYER;<>;  DO  I:I\CM_CON_BUYER;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_CON_BUYER  END DO

$VALIDATE  I:I\CM_BANKGUAR_EXPIRE;<>;  DO  I:I\CM_BANKGUAR_EXPIRE;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_BANKGUAR_EXPIRE  END DO

$SELECT  S:REPORT_FORMAT    $VALIDATE  F:REPORT_FORMAT;Y;;I\CM_BUYREP_LOUT=RF_CODE;RF_CODE='$I\CM_BUYREP_LOUT$';

$SELECT  S:REPORT_FORMAT;I\CM_BUY_TRAN  

$SELECT  S:REPORT_FORMAT;I\CM_BUYREP_LOUT  

$SELECT  S:BUYER;I\CM_CLUBFEE

$DEFAULT  B:ADDITEM;D\CM_AGING;C,T    $VALIDATE  B:VALIDATE;D\CM_AGING;C,T

$DEFAULT  B:READTABLE;D\CM_INTCALC;CALC_TYPE;CT_CODE;SELECT CT_CODE FROM CALC_TYPE    $VALIDATE  C:UCASE

$VALIDATE  I:I\CM_UPSCASH;<>;  DO  I:I\CM_UPSCASH;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_UPSCASH  END DO  

$VALIDATE  I:I\CM_UPSSCCR;<>;  DO  I:I\CM_UPSSCCR;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_UPSSCCR  END DO  

$CALCULATE  A:VAR;I\CM_PRICEVAR;I\CM_PRICEVAR;00.00    $VALIDATE  I:I\CM_PRICEVAR;<>;  DO  I:I\CM_PRICEVAR;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_PRICEVAR  END DO  

$VALIDATE    'CHECK THAT THE THIRD DIGIT IS A :  A:MID;I\CM_SRT_CLR_UPDSALES,3,:;I\TMP1  I:I\TMP1;<>;:  D:ENTER IN FORMAT XX:XX;ERRORM;I\CM_SRT_CLR_UPDSALES    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\CM_SRT_CLR_UPDSALES,2;I\TMP1  I:I\TMP1;>;23  D:CANNOT BE GREATER THAN 23:59;ERRORM;I\CM_SRT_CLR

$VALIDATE    'CHECK THAT THE THIRD DIGIT IS A :  A:MID;I\CM_END_CLR_UPDSALES,3,:;I\TMP2  I:I\TMP2;<>;:  D:ENTER IN FORMAT XX:XX;ERRORM;I\CM_END_CLR_UPDSALES    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\CM_END_CLR_UPDSALES,2;I\TMP2  I:I\TMP2;>;23  D:CANNOT BE GREATER THAN 23:59;ERRORM;I\CM_END_CLR

$CALCULATE  A:VAR;I\CM_PRC_DCKT;I\CM_PRC_DCKT;00.00    $VALIDATE  I:I\CM_PRC_DCKT;<>;  DO  I:I\CM_PRC_DCKT;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_PRC_DCKT  END DO  

$SELECT  S:REPORT_FORMAT;I\CM_CS_LABEL_LOUT

$VALIDATE  I:I\CM_NOREC_PRN;<>;  DO  I:I\CM_NOREC_PRN;<;1  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_NOREC_PRN  END DO

$VALIDATE  I:I\CM_CS_MIN_CHARGE;<>;  DO  I:I\CM_CS_MIN_CHARGE;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_CS_MIN_CHARGE  END DO    $CALCULATE  A:VAR;I\CM_CS_MIN_CHARGE;I\CM_CS_MIN_CHARGE;00.00

$VALIDATE  I:I\CM_CS_MAX_CHARGE;<>;  DO  I:I\CM_CS_MAX_CHARGE;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_CS_MAX_CHARGE  END DO    $CALCULATE  A:VAR;I\CM_CS_MAX_CHARGE;I\CM_CS_MAX_CHARGE;00.00

$VALIDATE  I:I\CM_RR_MIN_PERIOD;<>;  DO  I:I\CM_RR_MIN_PERIOD;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_RR_MIN_PERIOD  END DO  

$SELECT  S:REPORT_FORMAT    $VALIDATE  F:REPORT_FORMAT;Y;;I\CM_CS_LABEL_LOUT=RF_CODE;RF_CODE='$I\CM_CS_LABEL_LOUT$';

$VALIDATE  I:I\CM_CON_LEN;<>;  DO  I:I\CM_CON_LEN;<;0  D:CANNOT BE LESS THAN ZERO;ERRORM;I\CM_CON_LEN  END DO  

$DEFAULT  B:ADDITEM;D\CM_CSTARIFF;M,W,D,H    $VALIDATE  B:VALIDATE;D\CM_CSTARIFF;M,D,W,H