Freshmark replication server

freshmark-canonical

Program drill-down

AGENT_PARAM_MAN

AGENT PARAMETER MAINTENANCE. Type MAN, base table AGENT_MAST.

Field inventory

194

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 BLOCKED I 0 261, 553
  
1 0.0 AGENT_MAST AM_MAX_DEL_LINES T -1 451, 133
  
1 0.0 CMD 2 C -1 241, 325
$SELECT  'DISPLAY SELECTION WINDOW  S:SALES_ENTRY;I\AM_SLSM_ENTRY
1 0.0 H -1 0, 30
  
1 0.0 Label 1 T -1 1, 25
  
1 0.0 Label 2 T -1 291, 25
  
1 0.0 Label 3 T -1 316, 49
  
1 0.0 Label 4 T -1 621, 25
  
1 0.0 Label 5 T -1 621, 49
  
1 0.0 DEFAULT I 0 11, 49
$DEFAULT    'CHECK IF THE USER IS AN AGENT  A:ORGS;;I\AGENT  A:ORGS;;I\AM_CODE  I:I\AGENT;<>;        A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:DATE;DD MMM YYYY;T\DATE2  A:TIME;HH:MM:SS;T\TIME2  A:TIMER_ON;1000        A:DATE;DD MMM YYYY;T\DATE3  A:TIME;HH:MM:SS;T\TIME3  A:TIMER_ON;1000
1 0.0 Label 7 T -1 671, 25
  
1 0.0 Label 8 T -1 671, 49
  
1 0.0 AGENT_MAST AM_CODE T -1 1, 85
  
1 0.0 AGENT_MAST AM_BUYPIC T -1 1, 493
  
1 0.0 AGENT_MAST AM_CODE I -1 121, 85
$SELECT  'DISPLAY THE SELECTION WINDOW  S:AGENT_CODE;I\AM_CODE      $VALIDATE  'MAKE THIS FIELD MANDATORY  M:  'CONVERT TO UPPERCASE  C:UCASE      'DONT ALLOW OTHER AGENT TO VIEW DETAILS OF THIS AGENT  I:I\AGENT;<>;      DO(AGENT)        I:I\AM_CODE;<>;I\AGENT        D:ERROR - YOU ONLY ALLOWED TO ENTER '$I\AGENT$';ERRO
1 0.0 AGENT_MAST AM_MARK_DUES T -1 241, 493
  
1 0.0 AGENT_MAST AM_COMMPERC I -1 201, 133
$VALIDATE  'MAKE THIS FIELD MANDATORY  M:    'DISPLAY ERROR MESSAGE IF THE NUMBER IS NOT NUMERIC  A:ISNUMERIC;I\AM_COMMPERC;W\TEMP  I:W\TEMP;=;N  D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_COMMPERC;ERRORM;I\AM_COMMPERC    'DISPLAY ERROR MESSAGE IF THE NUMBER ENTERED IS LESS THAN ZERO OR GREATER THAN 100  R:0;100
1 0.0 AGENT_MAST AM_COMMPERC T -1 1, 133
  
1 0.0 AGENT_MAST AM_DELAUTO T -1 451, 157
  
1 0.0 AGENT_MAST AM_DEL_ALLOW T -1 451, 181
  
1 0.0 AGENT_MAST AM_DEL_LEN T -1 451, 109
  
1 0.0 AGENT_MAST AM_DEL_SUPPADD T -1 451, 205
  
1 0.0 AGENT_MAST AM_DEL_SUPPEDIT T -1 451, 229
  
1 0.0 AGENT_MAST AM_MARK_DUES K -1 401, 493
  
1 0.0 AGENT_MAST AM_BUYPIC K -1 201, 493
  
1 0.0 AGENT_MAST AM_PALLMEM_EDIT T -1 451, 253
  
1 0.0 AGENT_MAST AM_COMM_DECR I -1 201, 157
$VALIDATE  'DISPLAY ERROR MESSAGE IF THE NUMBER IS NOT NUMERIC  I:I\AM_COMM_DECR;<>;    DO(NUM)     A:ISNUMERIC;I\AM_COMM_DECR;W\TEMP     I:W\TEMP;=;N     D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_COMM_DECR    DOEND(NUM)    'DISPLAY ERROR MESSAGE IF THE NUMBER ENTERED IS LESS THAN ZERO OR GREATER THAN 100  I:I\
1 0.0 AGENT_MAST AM_AGN_COMM_DECR T -1 1, 157
  
1 0.0 AGENT_MAST AM_COMM_INC I -1 201, 181
$VALIDATE    'DISPLAY ERROR MESSAGE IF THE NUMBER IS NOT NUMERIC  I:I\AM_COMM_INC;<>;    DO(N)     A:ISNUMERIC;I\AM_COMM_INC;W\TEMP     I:W\TEMP;=;N     D:INVALID ENTRY - ENTER NUMERICS ONLY;ERRORM;I\AM_COMM_INC    DOEND(N)    'DISPLAY ERROR MESSAGE IF THE NUMBER ENTERED IS LESS THAN ZERO OR GREATER THAN 100  I:I\AM_CO
1 0.0 AGENT_MAST AM_AGN_COMM_INC T -1 1, 181
  
1 0.0 AGENT_MAST AM_CLR_UNPD_SALES T -1 451, 373
  
1 0.0 AGENT_MAST AM_PIN_SALES T -1 451, 397
  
1 0.0 AGENT_MAST AM_RESCAN T -1 451, 421
  
1 0.0 AGENT_MAST AM_SLSM_ENTRY T -1 1, 325
  
1 0.0 AGENT_MAST AM_SLSM_ENTRY I -1 201, 325
$SELECT  'DISPLAY SELECTION WINDOW  S:SALES_ENTRY;I\AM_SLSM_ENTRY    $VALIDATE  'MAKE THIS FIELD MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'DISPLAY ERROR MESSAGE IF THE CODE DOES NO EXIST  F:SLSMAN_ENT_MAST;Y;SEM_CODE;I\AM_SLSM_ENTRY=SEM_CODE;;I\AM_SLSM_ENTRY    'DISPLAY THE DESCRIPTION OF THE SELECTED ITEM ON
1 0.0 AGENT_MAST AM_HFEE_DCODE I -1 201, 229
$SELECT  'DISPLAY SELECTION WINDOW  S:DEDUCT_CODE3;I\AM_HFEE_DCODE;I\AM_CODE    $VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    I:I\AM_HFEE_DCODE;<>;   DO(NN)      'MAKES SURE THAT THIS DEDUCTION CODE HAS NOT BEEN USED    I:I\AM_HFEE_DCODE;=;I\AM_ACS_DCODE    D:THAT DEDUCTION CODE IS ALREADY IN USE;ERRORM;I\AM_HFEE_DCODE 
1 0.0 AGENT_MAST AM_HFEE_DCODE T -1 1, 229
  
1 0.0 AGENT_MAST AM_ACS_DCODE I -1 201, 253
$SELECT  'DISPLAY SELECTION WINDOW  S:DEDUCT_CODE3;I\AM_ACS_DCODE;I\AM_CODE    $VALIDATE  'CONVERT TO UPPERCASE  C:UCASE  I:I\AM_ACS_DCODE;<>;    DO(NN)     'MAKES SURE THAT THIS DEDUCTION CODE HAS NOT BEEN USED     I:I\AM_ACS_DCODE;=;I\AM_HFEE_DCODE     D:THAT DEDUCTION CODE IS ALREADY IN USE;ERRORM;I\AM_ACS_DCODE    
1 0.0 AGENT_MAST AM_CS_DCODE T -1 1, 253
  
1 0.0 AGENT_MAST AM_SENQ_BY_IP T -1 451, 445
  
1 0.0 CMD 38 C -1 171, 85
$SELECT  'DISPLAY THE SELECTION WINDOW  S:AGENT_CODE;I\AM_CODE  
1 0.0 Label 39 T -1 451, 349
  
1 0.0 Label 40 T -1 451, 85
  
1 0.0 Label 41 T -1 1, 109
  
1 0.0 Label 1 T -1 201, 85
  
1 0.0 AGENT_MAST AM_RR_DCODE I -1 201, 277
$SELECT  'DISPLAY SELECTION WINDOW  S:DEDUCT_CODE3;I\AM_RR_DCODE;I\AM_CODE    $VALIDATE  C:UCASE    I:I\AM_RR_DCODE;<>;    DO(NN)         'MAKES SURE THAT THIS DEDUCTION CODE HAS NOT BEEN USED     I:I\AM_RR_DCODE;=;I\AM_ACS_DCODE     D:THAT DEDUCTION CODE IS ALREADY IN USE;ERRORM;I\AM_RR_DCODE       'MAKES SURE THAT TH
1 0.0 AGENT_MAST AM_RR_DCODE T -1 1, 277
  
1 0.0 Label 3 T -1 261, 133
  
1 0.0 AGENT_MAST AM_FAX_SM_SECT I -1 201, 349
$VALIDATE    'DISPLAY ERROR MESSAGE IF THE NUMBER ENTERED IS NOT 0 (ZERO) OR  1 (ONE)  V:0;1    I:I\AM_FAX_SM_SECT;=;0  A:CONST;SECTION;T\SECTION    I:I\AM_FAX_SM_SECT;=;1  A:CONST;SALESMAN;T\SECTION    C:MCASE;;T\SECTION    $AFTER_READ    I:I\AM_FAX_SM_SECT;=;0  A:CONST;SECTION;T\SECTION    I:I\AM_FAX_SM_SECT;=;1  A:C
1 0.0 AGENT_MAST AM_FAX_SM_SECT T -1 1, 349
  
1 0.0 Label 2 T -1 261, 157
  
1 0.0 Label 3 T -1 261, 181
  
1 0.0 AGENT_MAST AM_BLOCK_DEL T -1 451, 277
  
1 0.0 AGENT_MAST AM_TYPE I -1 201, 373
$SELECT  'DISPLAY SELECTION WINDOW  S:AGENT_TYPE;I\AM_TYPE    $VALIDATE  'MAKE THIS FIELD MANDATORY  M:    'DISPLAY ERROR MESSAGE IF THE CODE DOES NO EXIST  F:AGENT_TYPE;Y;AT_CODE;I\AM_TYPE=AT_CODE;;I\AM_TYPE    'DISPLAY THE DESCRIPTION OF THE SELECTED ITEM ON THE LABEL  F:AGENT_TYPE;Y;AT_CODE;I\DESC2=AT_DESC;;I\AM_TYP
1 0.0 AGENT_MAST AM_TYPE T -1 1, 373
  
1 0.0 AGENT_MAST AM_FMS_NO I -1 201, 421
$VALIDATE  'MAKE THIS FIELD MANDATORY  M:    
1 0.0 AGENT_MAST AM_FMS_NO T -1 1, 421
  
1 0.0 CMD 1 C -1 221, 373
$SELECT  'DISPLAY SELECTION WINDOW  S:AGENT_TYPE;I\AM_TYPE
1 0.0 CMD 3 C -1 241, 229
$SELECT  'DISPLAY SELECTION WINDOW  S:DEDUCT_CODE3;I\AM_HFEE_DCODE;I\AM_CODE  
1 0.0 CMD 4 C -1 241, 253
$SELECT  'DISPLAY SELECTION WINDOW  S:DEDUCT_CODE3;I\AM_ACS_DCODE;I\AM_CODE
1 0.0 CMD 5 C -1 241, 277
$SELECT  'DISPLAY SELECTION WINDOW  S:DEDUCT_CODE3;I\AM_RR_DCODE;I\AM_CODE  
1 0.0 AGENT_MAST AM_MCS_DCODE I 0 251, 577
$SELECT  'DISPLAY SELECTION WINDOW  S:DEDUCT_CODE3;I\AM_MCS_DCODE;I\AM_CODE    $VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    I:I\AM_MCS_DCODE;<>;    DO(NN)     'MAKES SURE THAT THIS DEDUCTION CODE HAS NOT BEEN USED     I:I\AM_MCS_DCODE;=;I\AM_HFEE_DCODE     D:THAT DEDUCTION CODE IS ALREADY IN USE;ERRORM;I\AM_MCS_DCODE  
1 0.0 AGENT_MAST AM_MCS_DCODE T 0 91, 577
  
1 0.0 CMD 2 C 0 291, 577
$SELECT  'DISPLAY SELECTION WINDOW  S:DEDUCT_CODE3;I\AM_MCS_DCODE;I\AM_CODE    
1 0.0 Label 3 T -1 251, 373
  
1 0.0 Label 4 T -1 271, 325
  
1 0.0 Label 5 T -1 221, 349
  
1 0.0 AGENT_MAST AM_COMMIND I -1 201, 205
$VALIDATE  M:    'CONVERT TO UPPER CASE  C:UCASE    'DISPLAY ERROR IF ANY OTHER CHARACTER BESIDES S OR I IS ENTERED IN THIS FIELD  'I:I\AM_COMMIND;<>;  V:S;I
1 0.0 AGENT_MAST AM_COMMIND T -1 1, 205
  
1 0.0 Work 1 I 0 11, 583
  
1 0.0 Work 3 I 0 41, 49
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME      'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET
1 0.0 Work 1 I 0 91, 49
  
1 0.0 AGENT_MAST AM_SLSDKT_PRT T -1 451, 469
  
1 0.0 Label 3 T -1 451, 493
  
1 0.0 AGENT_MAST AM_PALLID I -1 201, 445
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    'ALLOW ONLY 'Y', 'N', OR BLANK IN THIS FIELD  V:Y;N;    'DEFAULT TO 'N' IF FIELD IS LEFT BLANK  I:I\AM_PALLID;=;  A:CONST;N;I\AM_PALLID
1 0.0 Label 2 T -1 1, 445
  
1 0.0 Label 1 T -1 1, 469
  
1 0.0 AGENT_MAST AM_OWN_PALL_POOL K -1 201, 469
$VALIDATE  I:K\AM_OWN_PALL_POOL;=;1    DO(1)      I:K\AM_PALLET_POOL;=;1      D:ERROR - CANNOT HAVE OWN POOL AND USE CENTRAL POOL - CHOOSE ONE;ERRORM;K\AM_OWN_PALL_POOL    DOEND(1)
1 0.0 Work 1 I 0 681, 571
$BEFORE_WRITE    I:K\AM_OWN_PALL_POOL;=;1  DO(02)  U:CREATE_POOLID;AGENT  DOEND(02)    A:CONST;$T\DATE3$;I\PW_LASTCHANGE      I:I\AM_SUPPL_PASSWORD;<>;  DO(CHK)   I:I\AM_SUPPL_PASSWORD;<>;I\TMP_PWD   DO(01)    'A:CONST;$I\TMP_PWD$;I\AM_SUPPL_PASSWORD    U:AGENT_MAST_SUPPL;CHANGE_SUPPL_PASSWORD   DOEND(01)  DOEND(CHK)
1 0.0 AGENT_MAST AM_CS_ROOM I -1 201, 397
$SELECT  S:LOCATION_MAST;I\AM_CS_ROOM    $VALIDATE  C:UCASE  'M:  I:I\AM_CS_ROOM;<>;  F:LOCATION_MAST;Y;LM_CODE;I\DESC7=LM_DESC;;I\AM_CS_ROOM    A:LEFT;I\DESC7,15;T\CODE7  C:MCASE;;T\CODE7    $AFTER_READ  'DISPLAY ERROR MESSAGE IF THE CODE DOES NO EXIST  I:I\AM_CS_ROOM;<>;  F:LOCATION_MAST;;LM_CODE;I\DESC7=LM_DESC;;I\A
1 0.0 AGENT_MAST AM_PALLET_POOL T -1 241, 469
  
1 0.0 AGENT_MAST AM_PALLET_POOL K -1 401, 469
$VALIDATE  I:K\AM_OWN_PALL_POOL;=;1    DO(1)      I:K\AM_PALLET_POOL;=;1      D:ERROR - CANNOT HAVE OWN POOL AND USE CENTRAL POOL - CHOOSE ONE;ERRORM;K\AM_PALLET_POOL    DOEND(1)
1 0.0 AGENT_MAST AM_CS_ROOM T -1 1, 397
  
1 0.0 CMD 7 C -1 311, 397
$SELECT  S:LOCATION_MAST;I\AM_CS_ROOM
1 0.0 AGENT_MAST AM_BEE I -1 201, 517
  
1 0.0 Label 2 T -1 1, 517
  
1 0.0 Work 1 I 0 381, 325
  
1 0.0 Work 1 I 0 91, 553
  
1 0.0 Work 2 I 0 111, 553
  
1 0.0 Work 3 I 0 131, 553
  
1 0.0 Work 4 I 0 161, 553
  
1 0.0 Work 5 I 0 181, 553
  
1 0.0 Work 6 I 0 201, 553
  
1 0.0 Work 7 I 0 221, 553
  
1 0.0 Work 8 I 0 241, 553
  
1 0.0 Label 9 T -1 271, 229
  
1 0.0 Label 10 T -1 271, 253
  
1 0.0 Label 11 T 0 321, 577
  
1 0.0 Label 12 T -1 271, 277
  
1 0.0 Label 1 T -1 341, 397
  
1 0.0 AGENT_MAST AM_CS_MIN_CHARGE T -1 1, 301
  
1 0.0 AGENT_MAST AM_CS_MIN_CHARGE I -1 201, 301
$VALIDATE  M:    I:I\AM_CS_MIN_CHARGE;<;0;NUM  D:CANNOT BE NEGATIVE;ERRORM;I\AM_CS_MIN_CHARGE    
1 0.0 AGENT_MAST AM_DEF_SLSMAN T -1 451, 301
  
1 0.0 CMD 3 C -1 741, 301
$SELECT  S:SALESMAN_AGENT;I\AM_DEF_SLSMAN;I\AM_CODE
1 0.0 Label 1 T -1 451, 325
  
1 0.0 Label 2 T -1 261, 445
  
1 0.0 AGENT_MAST AM_AUTO_FAX K -1 401, 445
  
1 0.0 Label 2 T -1 451, 517
  
1 1.0 AGENT_MAST AM_MAX_DEL_LINES I -1 661, 133
$VALIDATE  I:I\AM_MAX_DEL_LINES;>;99  D:MAX DELIVERY LINES CANNOT EXCEED 99;ERRORM;I\AM_MAX_DEL_LINES
1 1.0 AGENT_MAST AM_DEL_LEN I -1 661, 109
'WHOLE VALIDATION COMMENTED BY LAZ BECAUSE THIS FIELD IS A DISPLAY FIELD ONLY  '$VALIDATE  'MAKE THIS FIELD MANDATORY  'M:    'I:I\AM_DEL_LEN;>;8;NUM  'D:DELIVERY NUMBER LENGTH CANNOT BE GREATER THAN 8;ERRORM;I\AM_DEL_LEN          $AFTER_READ  'READ CLIENT MAST AND GET THE LENGTH OF THE DELIVERY NUMBER  F:CLIENT_MAST;;
1 1.0 AGENT_MAST AM_DELAUTO K -1 661, 157
  
1 1.0 AGENT_MAST AM_DEL_ALLOW K -1 661, 181
  
1 1.0 AGENT_MAST AM_DEL_SUPPADD K -1 661, 205
  
1 1.0 AGENT_MAST AM_DEL_SUPPEDIT K -1 661, 229
  
1 1.0 AGENT_MAST AM_PALLMEM_EDIT K -1 661, 253
  
1 1.0 AGENT_MAST AM_CLR_UNPD_SALES K -1 661, 373
  
1 1.0 AGENT_MAST AM_PIN_SALES K -1 661, 397
  
1 1.0 AGENT_MAST AM_RESCAN K -1 661, 421
  
1 1.0 AGENT_MAST AM_SENQ_BY_IP K -1 661, 445
  
1 1.0 AGENT_MAST AM_BLOCK_DEL K -1 661, 277
  
1 1.0 AGENT_MAST AM_SLSDKT_PRT I -1 661, 493
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    'MAKE THIS FIELD MANDATORY  M:    'ALLOW ONLY 'A' OR 'C' TO BE ENTERED IN THIS FIELD  V:A;C
1 1.0 AGENT_MAST AM_DEF_SLSMAN I -1 661, 301
$SELECT  S:SALESMAN_AGENT;I\AM_DEF_SLSMAN;I\AM_CODE    $VALIDATE  I:I\AM_SLSM_ENTRY;<>;4  M:    C:UCASE  I:I\AM_DEF_SLSMAN;<>;   DO(01)    A:VAR;I\AM_DEF_SLSMAN;I\AM_DEF_SLSMAN;;000    F:SALESMAN_MAST;Y;SLS_CODE;T\NAME=SLS_NAME;SLS_AGENT='$I\AM_CODE$';I\AM_DEF_SLSMAN   DOEND(01)
1 1.0 AGENT_MAST AM_SUPPL_REFNO I -1 661, 325
$VALIDATE  C:UCASE  I:I\AM_SUPPL_REFNO;=;  A:CONST;N;I\AM_SUPPL_REFNO    
1 1.0 AGENT_MAST AM_DEL_SEC I -1 661, 517
$VALIDATE  'CONVERT TO UPPERCASE  C:UCASE    'ALLOW ONLY 'Y' OR 'N' TO BE ENTERED IN THIS FIELD  V:Y;N
2 0.0 H -1 0, 0
  
2 0.0 AM_NOINV_PRN T -1 111, 121
  
2 0.0 Label 2 T -1 1, 25
  
2 0.0 Label 3 T -1 621, 25
  
2 0.0 AGENT_MAST AM_A4 T -1 111, 289
  
2 0.0 Label 4 T -1 621, 49
  
2 0.0 Label 5 T -1 671, 25
  
2 0.0 Work 1 I 0 11, 73
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET2    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET2=CM_NAME      'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET2
2 0.0 AGENT_MAST AM_EFT I -1 391, 409
$CALCULATE  C:UCASE  V:Y;N;  M:  I:I\AM_EFT;=;  A:CONST;N;I\AM_EFT
2 0.0 AGENT_MAST AM_ALLOW_SECTION_SLS_SUMM K -1 391, 385
  
2 0.0 AGENT_MAST AM_NOCSD_AGN_PRN I -1 391, 241
  
2 0.0 Label 3 T -1 111, 241
  
2 0.0 Label 6 T -1 671, 49
  
2 0.0 Label 7 T -1 291, 25
  
2 0.0 Label 8 T -1 301, 49
  
2 0.0 AM_NOREM_PRN T -1 111, 145
  
2 0.0 AM_NOCSI_PRN T -1 111, 169
  
2 0.0 AM_NOCSD_PRN T -1 111, 193
  
2 0.0 AM_NODEL_PRN T -1 111, 265
  
2 0.0 AGENT_MAST AM_NOINV_PRN I -1 391, 121
  
2 0.0 AGENT_MAST AM_NOREM_PRN I -1 391, 145
  
2 0.0 AGENT_MAST AM_NOCSI_PRN I -1 391, 169
  
2 0.0 AGENT_MAST AM_NOCSD_PRN I -1 391, 193
  
2 0.0 AGENT_MAST AM_NODEL_PRN I -1 391, 265
  
2 0.0 AGENT_MAST AM_A4 I -1 391, 289
$CALCULATE  C:UCASE  V:Y;N;    I:I\AM_A4;=;  A:CONST;Y;I\AM_A4
2 0.0 AGENT_MAST AM_BARCODE T -1 111, 313
  
2 0.0 Label 1 T -1 111, 409
  
2 0.0 Label 1 T -1 111, 385
  
2 0.0 Label 1 T -1 111, 217
  
2 0.0 AGENT_MAST AM_NOCSI_AGN_PRN I -1 391, 217
  
2 0.0 AGENT_MAST AM_BARCODE_TYPE I -1 391, 337
$VALIDATE  C:UCASE  V:39;128;    I:I\AM_BARCODE_TYPE;=;  A:CONST;39;I\AM_BARCODE_TYPE
2 0.0 AGENT_MAST AM_BARCODE_TYPE T -1 111, 337
  
2 0.0 AGENT_MAST AM_BARCODE I -1 391, 313
$VALIDATE  C:UCASE  V:Y;N;    I:I\AM_BARCODE;=;  A:CONST;N;I\AM_BARCODE  
2 0.0 Label 1 T -1 111, 361
  
2 0.0 AGENT_MAST AM_NOPAL_RET_PRN I -1 391, 361
$VALIDATE  M:  
3 0.0 Label 2 T -1 1, 193
  
3 0.0 Label 12 T -1 671, 49
  
3 0.0 Label 7 T -1 291, 49
  
3 0.0 AGENT_MAST AM_SUPPL_PASSWORD I -1 291, 217
$DEFAULT  A:SETPWFIELD;I\AM_SUPPL_PASSWORD  A:SETPWFIELD;I\CONFIRM    $VALIDATE    'MANDATORY  I:K\AM_SUPPL_PW_REQUIRED;=;1  M:      'I:I\DM_PINNO;<>;  '  DO(IN)  '   O:SHOW;I\CONFIRM,T\CONFIRM   '   O:ENABLEINPUT;I\CONFIRM  '   'O:SETFOCUS;I\CONFIRM  '  DOEND(IN)    'I:I\DM_PINNO;=;  'O:HIDE;I\CONFIRM,T\CONFIRM       
3 0.0 AGENT_MAST AM_SMAN_PIN I -1 291, 265
  
3 0.0 AGENT_MAST AM_CHANGE_FAX_DETAIL K -1 291, 169
  
3 0.0 H -1 0, 0
  
3 0.0 Label 14 T -1 1, 217
  
3 0.0 Work 4 I 0 121, 37
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET3    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET3=CM_NAME    A:SETPWFIELD;I\AM_SMAN_PIN  A:SETPWFIELD;I\AM_SMAN_PIN_CONF    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET3
3 0.0 Label 1 T -1 1, 241
  
3 0.0 Label 5 T -1 1, 25
  
3 0.0 Label 6 T -1 291, 25
  
3 0.0 Label 11 T -1 671, 25
  
3 0.0 Work 2 I 0 461, 169
  
3 0.0 Label 10 T -1 621, 25
  
3 0.0 Label 9 T -1 621, 49
  
3 0.0 Work 1 I 0 341, 169
$DEFAULT  A:SETPWFIELD;I\TMP_PWD        $AFTER_READ  A:CONST;$I\AM_SUPPL_PASSWORD$;I\TMP_PWD    $AFTER_WRITE  A:CONST;;I\TMP_PWD  
3 0.0 Label 1 T -1 1, 169
  
3 0.0 AGENT_MAST AM_SUPPL_PW_REQUIRED K -1 291, 193
'$VALIDATE  'I:K\AM_SUPPL_PW_REQUIRED;=;1  'O:ENABLEINPUT;I\AM_SUPPL_PASSWORD      'I:K\AM_SUPPL_PW_REQUIRED;<>;1  'DO(01)  'A:CONST;;I\AM_SUPPL_PASSWORD  'O:DISABLEINPUT;I\AM_SUPPL_PASSWORD  'DOEND(01)
3 0.0 Work 3 I -1 551, 265
$VALIDATE  I:I\AM_SMAN_PIN;<>;I\AM_SMAN_PIN_CONF  D:PASSWORDS DON'T MATCH;ERRORM;I\AM_SMAN_PIN_CONF
3 0.0 Label 4 T -1 401, 265
  
3 0.0 AGENT_MAST AM_USE_ACCSLS_EML I -1 291, 241
$CALCULATE  I:I\AM_USE_ACCSLS_EML;=;  A:CONST;N;I\AM_USE_ACCSLS_EML    C:UCASE  V:N;Y
3 0.0 Label 1 T -1 1, 265
  
3 0.0 Work 3 I 0 401, 229
  
3 0.0 Label 1 T -1 1, 289
  
3 0.0 AGENT_MAST AM_PAL_HANDLE_FEE I -1 291, 289
  
3 0.0 Label 3 T -1 1, 313
  
3 0.0 AGENT_MAST AM_PAL_HFEE_VCODE I -1 291, 313
  
3 0.0 Label 1 T -1 1, 337
  
3 0.0 AGENT_MAST AM_TRANSPORTER_COMMPERC I -1 291, 337
  
10 0.0 ZX_PRINT Z 0 0, 30
  
10 0.0 ZX_SELECT Z 0 0, 30
  
10 0.0 ZX_DELETE Z 0 0, 30
  
10 0.0 ZX_UPDATE Z 0 0, 30
  
10 0.0 ZX_EXIT Z 0 0, 30