× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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
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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.