Re: *NOMAIN procedure with display file

["Bob P. Roche" <BRoche@xxxxxxxxxxxxxxxxx>]

You aren't using the field anywhere in your code?



From:
Bryce Martin <BMartin@xxxxxxxxxxxx>
To:
rpg400-l@xxxxxxxxxxxx
Date:
11/06/2008 08:28 AM
Subject:
*NOMAIN procedure with display file
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



I've got a situation where I'm trying to create a procedure with a display 

file.  It is an SQLRPGLE program that doesn't see the fields in my dds 
file.  I've boiled the code down to a very simple example, the DDS doesn't 

change, just the RPG.

DDS:
                                            DSPSIZ(24 80 *DS3)
                                            PRINT(*LIBL/QSYSPRT)
                                            INDARA

                R RECORD1
     A                                      CA03(03 'F3=EXIT')
     A
     A            FIELD1          L  O  6 10
     A            FIELD2          L  O  7 10
     A            FIELD3          L  O  8 10 


Here is the SQLRPGLE.  If you compile it as it (with the certain lines 
commented out) then it compiles just fine.  But if you uncomment the lines 

that make it a *NOMAIN procedure it will no longer recognize Field1, 
Field2, and Field3 from the DDS.

SQLRPGLE:
     h*nomain
     FTESTDF    CF   E             WORKSTN infds(wsds)
     F                                     USROPN
     D WSDS            DS
     D  ALLIND                        1A   Overlay(wsds:369)
     D
     D* TEST            PR
     D
     P* TEST            B                   EXPORT
     D
     D* TEST            PI
     D
     D IndPtr          s               *   Inz(%Addr(*In))
     D IndDS           DS                  Based(IndPtr)
     D fkeys                         99a
     D  EXIT                           N   Overlay(fkeys:3)
     D
     D
     d fieldDS         DS
     d   field1
     d   field2
     d   field3
     d   myfield                       D   Dim(3) Overlay(fieldDS:1)
     d
      /free
       *inlr = *on;
       OPEN TESTDF;
       DOW NOT EXIT;

         EXFMT RECORD1;

         IF EXIT;
           LEAVE;
         ENDIF;
       ENDDO;
       close testdf;
      /end-free
     P* TEST            E 

Any help will be greatly appreciated.


Thanks
Bryce Martin
Programmer/Analyst I
Ext. 4777
--- This message (including any attachments) is intended only for the use 
of the individual or entity to which it is addressed and may contain 
information that is non-public, proprietary, privileged, confidential, and 
exempt from disclosure under applicable law. If you are not the intended 
recipient, you are hereby notified that any use, dissemination, 
distribution, or copying of this communication is strictly prohibited. If 
you have received this communication in error, please notify us and 
destroy this message immediately. ---