Listing of file='INVT060B' on disk='vmedia/701-2616C.wvd.zip'
# Sector 309, program filename = 'INVT060B'
0010 REM INVT060B, RELEASE 2.3, (12/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0020 REM -----------------------------------------------------------------
0030 REM SYSTEM & MODULE = GBS/MVP INVENTORY SYSTEM, SORT SET-UP MODULE
0040 REM PROGRAM FUNCTION = SORT INVENTORY FILE BY LOCATION CODE
0050 REM DATE WRITTEN = 08/13/78 MK
0060 REM LAST REVISION = 11/21/80 MAF
0065 REM THIS PROGRAM WAS UPGRADED TO 2.3 BY ERRATA 1180
0070 REM -----------------------------------------------------------------
0170 DIM K(10),N(10),B(10),F$(6)3,M0$(1)21,N$(4)8
0179 LOAD T"SORT4"10,3200
3400 M9$=$PSTAT(#PART)
: REM SET UP $PSTAT VARIABLE
3405 IF STR(M9$,,9)="M" THEN M=SPACEK+2
: ELSE M=SPACEK-1
: REM MEMORY SIZE
3410 F$()=M$()
: REM MENU PASSES FILE ADDRESSES TO SORT!
3420 M0$()=F$(6)&F$()
3430 SELECT #0<F$(6)>
3440 F=5
: REM FILE TYPE (KFAM-7)
3450 N$(1)=S$(1)
: REM INPUT FILE NAME
3460 J=1
: REM KEY FILE NUMBER
3470 B=1
: REM BLOCKING FACTOR
3480 L$="ALL"
: REM RECORDS TO BE SORTED
3490 K=2
: REM NUMBER OF KEY FIELDS
3500 K(1)=2
: REM LOCATION CODE
3510 K(2)=1
: REM PRODUCT ID
3520 B(1)=Q0-3
: REM STARTING BYTE - LOCATION CODE
3530 B(2)=1
: REM STARTING BYTE - PRODUCT ID
3540 N(1)=6
: REM FIELD LENGTH - LOCATION CODE
3550 N(2)=Q0
: REM FIELD LENGTH - PRODUCT ID
3560 N$(3)=S$(3)
: REM WORK FILE NAME
3570 N$(4)=S$(4)
: REM OUTPUT FILE NAME
3580 P8$="T"
: REM TYPE OF SORT (TAG)
3590 M$=STR(M$(),22,7)&"C"
: REM PROGRAM TO LOAD FOLLOWING SORT
3600 C$="Y"
: REM USE INVENTORY TAG FILE
3610 FOR I=1TO 6
3620 SELECT #I<F$(I)>
3630 HEXPACKQ$FROM STR(F$(I),2,2)
3640 ADDC(Q$,80)
: REM SET DISK ADDRESSES TO 'HOG' MODE
3650 HEXUNPACKQ$TO STR(F$(I),2,2)
3660 NEXT I
3670 IF STR(M$(),31,1) > " " THEN G$ = "INVT060E"
: REM SPECIAL INPUT PROC?
3680 IF G$>" " THEN M4=75
: REM NUMBER OF BYTES FOR SPECIAL INPUT PROC
9998 DEFFN'29"Q$=";HEX(22);"INVT060B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)