Listing of file='OREN110B' on disk='vmedia/701-2616C.wvd.zip'
# Sector 575, program filename = 'OREN110B' 0010 REM OREN110B, 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 ORDER ENTRY SYSTEM, SORT SET-UP MODULE 0040 REM PROGRAM FUNCTION = SORT ORDER ANALYSIS FILE BY PRODUCT ID, ORDER NO . 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 1184 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 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=0 : REM FILE TYPE (SEQUENTIAL) 3450 N$(1)=S$(1) : REM INPUT FILE NAME 3460 B=VAL(STR(M$(),32)) : REM BLOCKING FACTOR 3470 L$="ALL" : REM RECORDS TO BE SORTED 3480 K=1 : REM NUMBER OF KEY FIELDS 3490 K(1)=1 : REM DATA IS $PACKED INTO ONE FIELD 3500 N$(3)=S$(3) : REM NAME OF WORK FILE 3510 N$(4)=S$(4) : REM NAME OF OUTPUT FILE 3520 P8$="T" : REM TYPE OF SORT (TAG) 3530 M$=STR(M$(),22,7)&"C" : REM PROGRAM TO LOAD FOLLOWING SORT 3540 C$="W" : REM WRITE TAGS INTO SORTWORK FILE 3550 FOR I=1TO 6 3560 SELECT #I<F$(I)> 3570 HEXPACKQ$FROM STR(F$(I),2,2) 3580 ADDC(Q$,80) : REM SET DISK ADDRESS TO 'HOG' MODE 3590 HEXUNPACKQ$TO STR(F$(I),2,2) 3600 NEXT I 9999 DEFFN'29"Q$=";HEX(22);"OREN110B";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D )