PRCPOPT ;WISC/RFJ-picking ticket for distribution order ;27 Sep 93
Source file <PRCPOPT.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
PICKLM | ; called from list manager to print picking ticket
|
|
DQ | ; queue comes here to print picking ticket
|
|
Q | ; clean up
|
|
BUILD(ORDERDA) | ; build order in tmp for printing the picking ticket
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRCP(445.3 - [#445.3] | PICKLM+10, BUILD+3 |
^TMP($J | Q+2!, BUILD+2!, BUILD+3* |
Name | Field # of Occurrence |
---|---|
^( | BUILD+3 |
^(0 | PICKLM+10* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %ZIS | PICKLM+5* |
DATA | BUILD+1~, BUILD+3* |
IO("Q" | PICKLM+6, PICKLM+9! |
ITEMDA | BUILD+1~, BUILD+3* |
ORDERDA | PICKLM+3, PICKLM+10, BUILD~, BUILD+3 |
>> POP | PICKLM+5 |
>> VALMBCK | PICKLM+1* |
>> ZTDESC | PICKLM+7* |
>> ZTRTN | PICKLM+7* |
>> ZTSAVE("ORDERDA" | PICKLM+8* |
>> ZTSAVE("PRCP*" | PICKLM+8* |
>> ZTSAVE("ZTREQ" | PICKLM+8* |
>> ZTSAVE("^TMP( | $J, ""PRCPOPT PICK LIST"", " , PICKLM+8* |
ZTSK | PICKLM+9! |