image of READY prompt

Wang2200.org

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
     )