RE: RPG Display program and processing

[Peter Connell <peterc@xxxxxxxxxxxxx>]

Jim,
Someone else asked this just yesterday. You're on the right track with the
user open. We used this method. Open the display file explicitly using the
error indicator on the OPEN. The pgm will not fail so you can then use this
indicator to condition code that would normally interact with the display.

Cheers, Peter

-----Original Message-----
From: Jim Langston [mailto:jlangston@conexfreight.com]
Sent: Tuesday, July 25, 2000 4:54 AM
To: RPG400-L@midrange.com
Subject: RPG Display program and processing


I recently wrote a new program for our aging, all in RPG IV (no ILE yet).

This program runs interactively, simple program logic:

EXFMT the display file.
If user did *not* press F3 or F12
  loop through my records and print my report.
endif.

Like I said, very simple.  Now, I want to submit the report to batch.  Since
there's a display
file here, this can cause problems.  The "normal" way to do this would be to
break the program
into two different programs and write a CL wrapper.  Or even just open the
display file in the
CL, then SBMJOB the RPG program.

Is this still the best way to do this?  Or should I be looking at some other
new and improved
method?

I was contemplating opening the display file as USEROPN, then when I start
the logic look and
see if I'm running in batch mode (need to find the API for that) and if I'm
*not* in batch mode,
open the display file, do the EXFMT, and if not F3 or F12 to call SYSTEM (or
whatever the
newest best way to call an AS/400 command is) to run SBMJOB and submit
myself to batch.

Any suggestions?

Regards,

Jim Langston

Always looking for bigger and better things.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---

This communication is confidential and may be legally privileged.  If it is not 
addressed to you, you are on notice of its status.  Please immediately contact 
us at our cost and destroy it.  Please do not use, disclose, copy, distribute 
or retain any of it without our authority - to do so could be a breach of 
confidence.  Thank you for your co-operation.  Please contact us on (09) 356 
5800 if you need assistance.
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---