|
Is there a trick to accessing files via logical files?When I do the START, it returns with an file-status of '23'..... BEFORE the READ statement
midrange.com
Anyone have any ideas or suggestions?
----------------------------------------------------------
Here is the SELECT STATEMENT
select WFLOD
assign to database-WFLOD
organization indexed
access dynamic
record key externally-described-key with duplicates
file status WFLOD-FS.
----------------------------------------------------------
Here is the FD STATEMENT
FD WFLOD
label records are standard.
01 WFLOD-record.
COPY DDSR-WFLOD00 OF UAVBASEF-WFLODL02.
--------------------------------------------------------------------
Here is the paragraph containing the code referred to above
PROC-ITEMS.
INITIALIZE WFLOD-RECORD.
IF ITEM-NO NOT = "*ALL"
MOVE ITEM-NO TO LDITEM.
START WFLOD KEY NOT < EXTERNALLY-DESCRIBED-KEY.
IF WFLOD-FS < "03"
READ WFLOD NEXT RECORD
IF WFLOD-FS < "03"
PERFORM CHK-THIS-ITEM
IF TFITM-FS = "00"
MOVE LDITEM TO SAV-ITEM
-----------------------------------------------------------
Here is the code from the source listing referring to the file
37 004500 FD WFLOD
004600 label records are standard.
38 004700 01 WFLOD-record.
004800 COPY DDSR-WFLOD00 OF UAVBASEF-WFLODL02.
+000001* I-O FORMAT:WFLOD00 FROM FILE WFLODL02 OF LIBRARY
UA
+000002* Location Detail
+000003*THE KEY DEFINITIONS FOR RECORD FORMAT WFLOD00
+000004* NUMBER NAME RETRIEVAL
A
+000005* 0001 LDITEM ASCENDING
+000006* 0002 LDWHS ASCENDING
+000007* 0003 LDASLE ASCENDING
+000008* 0004 LDBAY ASCENDING
+000009* 0005 LDLVL ASCENDING
+000010* 0006 LDLCPL ASCENDING
39 +000011 05 WFLOD00.
40 +000012 06 LDWHS PIC X(3).
+000013* Warehouse
41 +000014 06 LDASLE PIC X(3).
+000015* Aisle
42 +000016 06 LDBAY PIC X(3).
+000017* Bay
43 +000018 06 LDLVL PIC X(3).
+000019* Level
44 +000020 06 LDLCPL PIC S9(20)
COMP-3.
+000021* License Plate ID
45 +000022 06 LDOLCP PIC S9(20)
COMP-3.
+000023* Orig License Plate
46 +000024 06 LDITEM PIC X(15).
+000025* Item Number
47 +000026 06 LDVRSN PIC X(3).
+000027* Version
48 +000028 06 LDLOT PIC X(15).
+000029* Lot ID
49 +000030 06 LDISTS PIC X(3).
+000031* Inventory Status
50 +000032 06 LDLZON PIC X(6).
+000033* Locating Zone
51 +000034 06 LDAZON PIC X(6).
+000035* Allocation Zone
52 +000036 06 LDLTYP PIC X(6).
+000037* Location Type
53 +000038 06 LDAGDT PIC S9(7)
COMP-3.
More...
------------------------------------------------------------------------
Don Stafford, Director of Information Technologies
UAV Entertainment Corporation
2200 Carolina Place
Fort Mill, SC 29708
803-548-1056 x1159
803-548-2493 - Fax
don.stafford@xxxxxxxxx
************************************************************************
This email is confidential and intended solely for the use of the
individual to whom it is addressed. Any views or opinions presented are
solely those of the author and do not necessarily represent those of UAV
Corporation.
If you are not the intended recipient, be advised that you have received
this email in error and that any use, dissemination, forwarding,
printing, or copying of this email is strictly prohibited. If you have
received this email in error please contact the sender.
************************************************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
