RE: CHAIN & Operation Extender

The no record lock, (n), needs to be on the chain opcode. Not the file name.

C
C     frmact        chain(n)  glmstrl1
C                      if           %found

Marc Zylka, 228-5267


-----Original Message-----
From: Buzz Fenner [mailto:bfenner@xxxxxxxxxxxxxxxx]
Sent: Tuesday, September 16, 2003 4:46 PM
To: RPG Discussion
Subject: CHAIN & Operation Extender


I've tried to code a simple CHAIN operation without a record lock (code does
a lock later) and I cannot get the thing to compile.  Here's the code:

Fglmstrl1  uf   e           k disk

Plus any of the following:

C
C     frmact        chain     glmstrl1(n)
C                      if           %found
C
C     frmact        chain     glmstrl1 (n)
C                      if           %found
C
C     frmact        chain     glmstrl1(N)
C                      if           %found
C
C     frmact        chain     glmstrl1 (N)
C                      if           %found


Every time, the compiler treats it as an invalid array definition.

*RNF7030 30    188 004400  The name or indicator N is not defined.
*RNF5064 20    188 004400  An array index is specified for name that is not
an array.

I'm using CODE/400, but if I go back to SEU, the same thing happens.  I must
be rustier than I thought.

Buzz Fenner
Systems Analyst/Network Administrator
Phone: 870.930.3374
Fax: 870.930.3376
bfenner@xxxxxxxxxxxxxxxx


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


**********************************************************************
The information and any files contained in this e-mail message are property of 
WestPoint Stevens Inc., its subsidiaries or affiliates, and are intended only 
for use of the individual or entity named above.  If the reader of this message 
is not the intended recipient, or the employee or agent responsible to deliver 
it to the intended recipient, you hereby are notified that use, dissemination, 
distribution or copying of this information is strictly prohibited.  If you 
have received this communication in error, please immediately notify us by 
return e-mail and destroy the original message.  Thank you.
**********************************************************************