Asset Suite / PassPortGeek

IA61 multiple selections can result in jumbled prints making it necessary to sort out the paper. It's possible to force the Pick List and Packing Guide to print together, although not necessarily in the panel order.

Included is a script change to access the UNIX printer in ppprinters. It shows how to code for shell variables that are used in scripts executed by scripts.

Changes to:
1. tigia61.ccp paragraph 6220-LOAD-DATA-CARDS
2. tigsia61.scr. Change suppresses the printing of OREPORT at each job step, then cat's the concatenation of the two reports to the printer.

tigia61.ccp paragraph 6220-LOAD-DATA-CARDS

a) Near the top of the paragraph, comment out the if statement and PERFORM 6245-DETERMINE-PICK-LIST-NBR.

b) Within the PERFORM UNTIL

b1) right after the if checking IF PICK-LIST-NBR-PKWH1(LINE-SUB) NOT NUMERIC add:

MOVE PICK-CONTROL-NBR-PKWH1(LINE-SUB) TO PICK-LIST-NBR-NEW

* Each row's Pick Control becomes the Pick List.

b2) After IF FIRST-TIME-THRU and PERFORM 6250-BATCH-JOB-PREP, comment out MOVE SPACE TO FIRST-TIME-THRU-SW and add:

* RESET-CMD-COM is option 3: Send to RF
IF (RESET-CMD-COM)
MOVE SPACE TO FIRST-TIME-THRU-SW
END-IF

b3) After MOVE PICK-LIST-NBR-WS TO PICK-LIST-NBR-SAVE add:

IF (NOT RESET-CMD-COM)
PERFORM 6260-BATCH-WRAP-UP
END-IF

c) Comment out PERFORM 6260-BATCH-WRAP-UP

tigsia61.scr

#!/bin/ksh
export OPARMS="$IPARMS1.$$"
export SPARMS="$ISTDVAR1.$$"
cp $IPARMS1 $OPARMS
cp $ISTDVAR1 $SPARMS
#
ppprinter="ppprinter"
myprinter="myprinter"
OREPORT="OREPORT"
OREPORT1="OREPORT1"
ad1="export OREPORT1=$litdol$OREPORT"
# Save step 1's printer in case step 2 does not print.
ad2="export myprinter=$litdol$ppprinter"
# jobcopies=0, jobhold=Y
. $PPBATCH $1 tibia61 1 0 0 Y
#
export IPARMS9="$OPARMS"
export ISTDVAR9="$SPARMS"
OREPORT2="OREPORT2"
ad1="export OREPORT2=$litdol$OREPORT
ad2="export ppprinter=$litdol$myprinter"
ad3="cat $litdol$OREPORT1 $litdol$OREPORT2 | lp -d $litdol$ppprinter"
. $PPBATCH $1 tibia62 9 0 0 Y
# end