Freshmark replication server

freshmark-canonical

Program drill-down

CS_CONF_ISS

COLD STORAGE CONFIRMATION. Type DSP, base table LOC_TRANS.

Field inventory

41

Live detail pulled from the database.

Page Seq Table Field Type Visible Position Logic snippet
1 0.0 Label 71 T -1 571, 229
  
1 0.0 Label 70 T -1 471, 145
  
1 0.0 Label 44 T -1 1, 25
  
1 0.0 Work 74 I 0 41, 61
$DEFAULT  A:ORGS;;I\ORGS    I:I\ORGS;<>;  DO(PAS)    O:DISABLEINPUT;I\AGENT,I\SEQ,I\CONF,C\AGENT,C\UPDATE    D:AGENTS MAY NOT RUN THIS SCREEN;ERRORM;I\AGENT  DOEND(PAS)    I:I\ORGS;=;  DO(PAS)    O:ENABLEINPUT;I\AGENT,I\SEQ,I\CONF,C\AGENT,C\UPDATE  DOEND(PAS)
1 0.0 CMD 69 C -1 621, 541
$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW    $SELECT  'I:I\ORGS;<>;  'D:AGENTS MAY NOT RUN THIS SCREEN;ERRORM;I\MARKET    U:COLD_STORAGE_CONFIRMATION_ISS;UPDATE    A:CONST;;I\AGENT,I\SEQ,I\DEPNO,I\CONSIGN,I\DEPDTE,I\COMMODITY,I\QTY,I\CONF,I\DOC_NO  'COMMENTED BY LAZ ON CHRISTO'S REQUEST  'U:ZZGRID_SPLIT;INIT_GRID;G\GRID
1 0.0 Work 68 I -1 51, 277
  
1 0.0 Work 62 I -1 11, 277
$SELECT  S:G:G\GRID:S1    $CALCULATE  I:I\SEQ;<>;  DO(DLD)  O:ENABLEINPUT;I\CONF  U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ    DOEND(DLD)    I:I\SEQ;=;  DO(SQS)    A:CONST;;I\SEQ,I\DEPNO,I\CONSIGN,I\DEPDTE,I\COMMODITY,I\QTY,I\CONF    O:DISABLEINPUT;I\CONF    O:SETFOCUS;C\UPDATE    O:BACKCOLOR;C\UPDATE;YELLOW  DOEND(SQ
1 0.0 H -1 0, 0
  
1 0.0 CMD 54 C -1 421, 145
$SELECT  S:AGENT_CODE;I\AGENT
1 0.0 Work 53 G -1 11, 301
  
1 0.0 Work 73 I 0 61, 61
$DEFAULT  A:USERIP;;I\IP
1 0.0 Work 66 I -1 671, 277
$CALCULATE  C:UCASE  V:Y;N;    I:I\CONF;=;  A:CONST;N;I\CONF  U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ  O:SETFOCUS;I\SEQ  A:CONST;;I\SEQ,I\DEPNO,I\DEPDTE,I\COMMODITY,I\QTY,I\CONF,I\CONSIGN,I\DOC_NO
1 0.0 Label 49 T -1 621, 49
  
1 0.0 Label 50 T -1 671, 49
  
1 0.0 Label 45 T -1 291, 25
  
1 0.0 Label 48 T -1 671, 25
  
1 0.0 Label 58 T -1 571, 253
  
1 0.0 Label 59 T -1 671, 253
  
1 0.0 Label 61 T -1 51, 253
  
1 0.0 Label 55 T -1 11, 253
  
1 0.0 Work 65 I -1 571, 277
  
1 0.0 Work 63 I -1 351, 277
  
1 0.0 Work 72 I 0 81, 61
$DEFAULT  A:USERID;;I\USERID
1 0.0 Work 76 I 0 1, 61
$DEFAULT  A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000       U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\DEPNO,I\DOC_NO,I\CONSIGN,I\DEPDTE,I\COMMODITY,I\QTY,I\CONF,I\IP:H      'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE
1 0.0 Label 56 T -1 351, 253
  
1 0.0 Label 46 T -1 241, 49
  
1 0.0 Label 57 T -1 461, 253
  
1 0.0 Label 47 T -1 621, 25
  
1 0.0 Work 1 I -1 151, 277
  
1 0.0 Label 78 T -1 251, 253
  
1 0.0 Label 2 T -1 151, 253
  
1 0.0 Work 64 I -1 461, 277
  
1 0.0 Work 77 I -1 251, 277
  
1 0.0 Label 51 T -1 251, 145
  
1 0.0 Work 52 I -1 311, 145
$SELECT  S:AGENT_CODE;I\AGENT    $VALIDATE  M:  C:UCASE  F:AGENT_MAST;Y;;T\AGN_DESC=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT  U:COLD_STORAGE_CONFIRMATION_ISS;POP_GRID        
1 0.0 Work 75 I 0 21, 61
$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    
10 0.0 ZX_EXIT Z 0 0, 0
  
10 0.0 ZX_UPDATE Z 0 0, 0
  
10 0.0 ZX_PRINT Z 0 0, 0
  
10 0.0 ZX_DELETE Z 0 0, 0
  
10 0.0 ZX_SELECT Z 0 0, 0