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
)