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 )