Midrange News for the IBM i Community


Posted by: Danny Hayes
Chain in RPG Free
has no ratings.
Published: 15 Apr 2013
Revised: 17 Apr 2013 - 2065 days ago
Last viewed on: 12 Dec 2018 (12501 views) 

Using IBM i? Need to create Excel, CSV, HTML, JSON, PDF, SPOOL reports? Learn more about the fastest and least expensive tool for the job: SQL iQuery.

Chain in RPG Free Published by: Danny Hayes on 15 Apr 2013 view comments(6)

I am at a new company, and am tasked with a little mod to an existing production program.

The pgm references a logical:

     A          R I0411                     PFILE(F0411     )
     A          K RPRMK                                      
     A          K RPAN8                                      
     A          K RPDOC   

 

 

                                   

The program using Free does the following:

Eval Wrknum=DaPnum  ;

Eval VndNum#=%Dec(DapVnd:8:0)   ;

Chain (WrkNum:VndNum#) F0411LAA ;

IF Not %Found(F0411LAA) OR RPCRC <> '835' ;

 Eval No835='Y'    ;

EndIf     ;

 

Have I slipped into an alternate reality where it is now possible to CHAIN using keys 2 and 3 while ignoring 1?

Thanks for your kind understanding.

 

Return to midrangenews.com home page.
Sort Ascend | Descend

COMMENTS