YEARS_TO_DEL_SUPPL

$SELECT  S:ITEM_NEW;I\ITEM

$SELECT  A:CONST;;I\ALLOW    I:I\SDATE;=;  D:PLEASE ENTER A START DATE;ERRORM;I\SDATE    I:I\EDATE;=;  D:PLEASE ENTER AN END DATE;ERRORM;I\EDATE    I:I\ORGS;<>;  DO(SLA)    I:I\ORGS;<>;I\AGENT    D:YOU MAY NOT RUN FOR THIS AGENCY;ERRORM;I\AGENT  DOEND(SLA)    I:I\MARKET;<>;15  DO(TIME)    I:I\CM_ALLOW_MNTH_REPORT;<>;1 

$SELECT  I:I\AGENT;<>;  S:SALESMAN_AGENT;I\SMAN;I\AGENT    I:I\AGENT;=;  S:SALESMAN;I\SMAN

$SELECT  S:SECTION;I\SECT

$SELECT  S:AGENT_CODE;I\AGENT

$SELECT  I:I\AGENT;<>;  S:SALESMAN_AGENT;I\SMAN;I\AGENT    I:I\AGENT;=;  S:SALESMAN;I\SMAN    $VALIDATE  I:I\SMAN;<>;  DO(03)    I:I\AGENT;<>;    DO(AG)      F:SALESMAN_MAST;Y;;T\BNAME=SLS_NAME;SLS_CODE='$I\SMAN$' AND SLS_AGENT='$I\AGENT$';I\SMAN    DOEND(AG)        I:I\AGENT;=;    DO(AG)      F:SALESMAN_MAST;Y;;;SLS_C

$VALIDATE  C:UCASE  I:I\WAYBILL;<>;  F:STK_MAST;Y;;;SM_MARKET='$I\MARKET$' AND SM_WAYBILLNO='$I\WAYBILL$' AND (SM_FINPDTE='' OR ISNULL(SM_FINPDTE));I\WAYBILL

$SELECT  S:ITEM_NEW;I\ITEM    $VALIDATE    C:UCASE    I:I\ITEM;<>;  DO(OPA)    A:LEN;I\ITEM;W\LEN    A:LEFT;I\ITEM,2;W\PROD    I:W\LEN;>;2    DO(ITM)      F:STK_DETS;Y;;;SD_ITEM = '$I\ITEM$';;;  ITEM DOES NOT EXIST      F:VAR_MAST;;;T\DESC=VA_DESC;VA_PRODUCT=LEFT('$I\ITEM$',2) AND VA_VARIETY=RIGHT('$I\ITEM$',2);    DOE

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

$SELECT  S:PROVINCE;I\PROV    $VALIDATE  C:UCASE  I:I\PROV;<>;  DO(PRV)  F:PROV_MAST;Y;;T\PROV_DESC=PR_DESC;PR_PROV='$I\PROV$';I\PROV  DOEND(PRV)

$CALCULATE  C:UCASE    V:D;P;    I:I\OPT;=;  A:CONST;D;I\OPT    O:BACKCOLOR;C\RUN;YELLOW  O:SETFOCUS;C\RUN  

$VALIDATE    O:BACKCOLOR;C\RUN;YELLOW  O:SETFOCUS;C\RUN

$SELECT  S:SECTION;I\SECT    $VALIDATE  C:UCASE  I:I\SECT;<>;  DO(SEC)  F:SECT_MAST;Y;;T\SECTNAME=SE_DESC;SE_SECT='$I\SECT$';I\SECT  DOEND(SEC)    I:I\SECT;=;  A:CONST;ALL;I\SECT      'I:I\MARKET;=;15  'DO(1)  '  O:BACKCOLOR;C\RUN;YELLOW  '  O:SETFOCUS;C\RUN  'DOEND(1)

$SELECT  S:AGENT_CODE;I\AGENT    $CALCULATE  A:CONST;;T\PROG  I:I\AGENT;<>;  DO(LSS)  C:UCASE  F:AGENT_MAST;Y;;T\NAME=AM_NAME;AM_CODE='$I\AGENT$'  DOEND(LSS)

$CALCULATE  A:CONST;;T\PROG  M:  

$CALCULATE  A:CONST;;I\ALLOW  M:  I:I\CM_ALLOW_MNTH_REPORT;<>;1  DO(CHK)   U:FIX_LOC_TRANS;REPORTS_TIME_CHECK;I\SDATE,I\EDATE   I:I\ALLOW;=;N    DO(01)     O:SETFOCUS;I\SDATE    DOEND(01)  DOEND(CHK)      I:I\MARKET;<>;22  DO(1)    I:I\MARKET;=;15    DO(2)      O:SETFOCUS;I\SECT    DOEND(2)  DOEND(1)

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_ALLOW_MNTH_REPORT=CM_ALLOW_MNTH_REPORT    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;

$VALIDATE    I:I\END_TIME;<>;  DO(2)   A:MID;I\END_TIME,3,1;I\TMP2     I:I\TMP2;<>;:     D:ENTER IN FORMAT XX:XX;ERRORM;I\END_TIME     'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24   A:LEFT;I\END_TIME,2;I\TMP2     I:I\TMP2;>;23    D:CANNOT BE GREATER THAN 23:59;ERRORM;I\END_TIME     'CHECK THAT THE LAST TWO DI

$VALIDATE    I:I\ORDER;=;  A:CONST;N;I\ORDER    I:I\ORDER;<>;  C:UCASE  DO(1)    I:I\ORDER;<>;Y    DO(2)      I:I\ORDER;<>;N      D:ENTER ONE OF THE FOLLOWING Y,N OR LEAVE IT BLANK;ERRORM;I\ORDER    DOEND(2)  DOEND(1)  'O:BACKCOLOR;C\RUN;YELLOW  'O:SETFOCUS;C\RUN

$VALIDATE  C:UCASE  V:Y;N;    I:I\DUMP;=;  A:CONST;N;I\DUMP    I:I\DUMP;=;Y  A:CONST;D;I\OPT    O:BACKCOLOR;C\RUN;YELLOW  O:SETFOCUS;C\RUN

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MKT    I:I\MARKET;<>;15  DO(15)    O:HIDE;I\ADDR3,T\ADDR3    O:SHOW;I\DJOIN,T\DJOIN,T\JOIN  DOEND(15)      I:I\MARKET;=;15  DO(15)    O:HIDE;I

$VALIDATE    C:UCASE    I:I\MARKET;=;15  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CODE,I\NAME,I\ADDR1,I\ADDR2,I\ADDR3,I\PCODE,I\DJOIN:H,I\TELNO    I:I\MARKET;<>;15  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CODE,I\NAME,I\ADDR1,I\ADDR2,I\ADDR3:H,I\PCODE,I\DJOIN,I\TELNO    I:I\TELNO_CELLNO;<>;  DO(1)  A:CONST;SEARCHING FOR MATCHING SUP

$DEFAULT  A:TIME;HH:MM:SS;T\TIME  A:DATE;DD MMM YYYY;T\DATE  A:TIMER_ON;1000    I:I\MARKET;=;15  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CODE,I\NAME,I\ADDR1,I\ADDR2,I\ADDR3,I\PCODE,I\DJOIN:H,I\TELNO    I:I\MARKET;<>;15  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CODE,I\NAME,I\ADDR1,I\ADDR2,I\ADDR3:H,I\PCODE,I\DJOIN,I\TELNO

$VALIDATE    C:UCASE    I:I\MARKET;=;15  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CODE,I\NAME,I\ADDR1,I\ADDR2,I\ADDR3,I\PCODE,I\DJOIN:H,I\TELNO    I:I\MARKET;<>;15  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CODE,I\NAME,I\ADDR1,I\ADDR2,I\ADDR3:H,I\PCODE,I\DJOIN,I\TELNO    I:I\ADDR_SEARCH;<>;  DO(1)  A:CONST;SEARCHING FOR MATCHING SUPP

$VALIDATE    C:UCASE    I:I\MARKET;=;15  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CODE,I\NAME,I\ADDR1,I\ADDR2,I\ADDR3,I\PCODE,I\DJOIN:H,I\TELNO    I:I\MARKET;<>;15  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\CODE,I\NAME,I\ADDR1,I\ADDR2,I\ADDR3:H,I\PCODE,I\DJOIN,I\TELNO    I:I\SUPPLIER;<>;  DO(1)  A:CONST;SEARCHING FOR MATCHING SUPPLIE