Re: QCMDEXEC -- RPG400-L

Well... thank-you all for the input. Believe it or not, it is kind of fun and
a challenge 're-writing' the old stuff into old stuff for this project. Can't
do writes, just excpts... internally defined EVERYTHING, and tons of other
challenges. Too long of a story to explain why this is necessary (or at least
why they insist it is).... however, it is a paying customer, and I really am
having a bit of a good time with it. I do feel a bit spanked, but hey, money
is money, and I am providing what they requested. Anyway, I was just trying
to remember (if I knew) how to send a quick break message with ... was it
C\EXEC.... or C/EXEC ... or ??? (if I remember loooooooong ago, I also used
the same thing for TITLE and PAGE....
**
SND......
Please don't beat me up about it.... I was just trying to save a bit of time.
Thanks so much... really...
This list has helped so much over the years.... what a resource!
Kathie

In a message dated 05/02/2001 6:42:12 PM Central Daylight Time,
STEVEN.J.RYAN@denso.com.au writes:

Subj: RE: QCMDEXEC
Date: 05/02/2001 6:42:12 PM Central Daylight Time
From:    STEVEN.J.RYAN@denso.com.au
Sender:    owner-rpg400-l@midrange.com
Reply-to: RPG400-L@midrange.com
To:    RPG400-L@midrange.com

File:att1.htm (832 bytes) DL Time (45333 bps): < 1 minute

If you really want to be true to its 36 roots.....

Run the program in OCL. When it dies for whatever reason, set on a Ux
switch
(i.e. U1-U8) in the RPG program. This gives you up to 8 error reasons. In
the
OCL, after the program has finished, check the Ux switches and display the
appropriate message.

// if switch1-1 * 'Invald Date'
// if switch1-1 Pause
// if switch1-1 goto end
// if switch2-1 * 'Invalid Customer'
// ...... etc.

This is the way we wrote stuff for the 34/36 TWENTY years ago, but hey, if
your
client wants original 36 mode, give them their money's worth.

Kmh0421@aol.com on 03/05/2001 01:17:03

Please respond to RPG400-L@midrange.com

To:   RPG400-L@midrange.com
cc:    (bcc: STEVEN J RYAN/DIAU)

Subject: RE: QCMDEXEC

Hi to all. I am rewriting some old 36 programs.... getting rid of WSU stuff.
Long story, but due to client demand, must remain in 36 mode. Also per
client
demand, constant checks for 'data integrity' are included, always checking
FCR records comparing for all 9's... if not equal, current programs just
exit
out of program and write an error record to an error file. I find this
annoying in testing, and I would at least like to add a quick break message
to the user telling them what happenned and why they were blown away. I
checked my books and cannot find a quick little way to do it, and I don't
remember from long ago.... can anyone take a quick minute to refresh my
memory?
Thanks so much;
Kathie

----------------------- Headers --------------------------------
Return-Path: <rpg400-l-owner@midrange.com>
Received: from rly-xc02.mx.aol.com (rly-xc02.mail.aol.com
[172.20.105.135]) by air-xc02.mail.aol.com (v77_r1.36) with ESMTP; Wed, 02
May 2001 19:42:12 -0400
Received: from uucphost.mcs.net (kitten2.mcs.com [192.160.127.90]) by
rly-xc02.mx.aol.com (v77_r1.36) with ESMTP; Wed, 02 May 2001 19:41:34 -0400
Received: (from uucp@localhost)
   by uucphost.mcs.net (8.11.3/8.11.1) with UUCP id f42NfWN97577;
   Wed, 2 May 2001 18:41:32 -0500 (CDT)
   (envelope-from rpg400-l-owner@midrange.com)
Received: from localhost (mail@localhost)
   by linux.midrange.com (8.9.3/linuxconf) with SMTP id RAA26030;
   Wed, 2 May 2001 17:58:58 -0500
Received: by linux.midrange.com (bulk_mailer v1.13); Wed, 2 May 2001
17:58:47 -0500
Received: (from majordom@localhost)
   by linux.midrange.com (8.9.3/linuxconf) id RAA25746
   for rpg400-l-outgoing; Wed, 2 May 2001 17:58:31 -0500
Received: (from uucp@localhost)
   by linux.midrange.com (8.9.3/linuxconf) with UUCP id RAA25682
   for RPG400-L@midrange.com; Wed, 2 May 2001 17:58:24 -0500
From: STEVEN.J.RYAN@denso.com.au
Received: from gate.denso.com.au ([203.36.78.67])
   by uucphost.mcs.net (8.11.3/8.11.1) with ESMTP id f42Msls82519
   for <RPG400-L@midrange.com>; Wed, 2 May 2001 17:54:49 -0500 (CDT)
   (envelope-from STEVEN.J.RYAN@denso.com.au)
Received: from [172.24.4.230] by gate.denso.com.au
   for RPG400-L@midrange.com
   id IAA20344; Thu May 3 08:53:30 2001
Received: by SDIAU004.denso.com.au(Lotus SMTP MTA v4.6.3 (778.2 1-4-1999))
id 4A256A40.007DB255 ; Thu, 3 May 2001 08:52:56 +1000
X-Lotus-FromDomain: NDOA
Message-ID: <4A256A40.007DB166.00@SDIAU004.denso.com.au>
Date: Thu, 3 May 2001 08:52:46 +1000
Subject: RE: QCMDEXEC
Mime-Version: 1.0
Content-type: multipart/mixed;
   Boundary="0__=HZWZV3AwFkwvpU50NFzsFJlPDfhrpzUmnzwV9rTqkL26MdCF5jTTjmXe"
Content-Disposition: inline
To: RPG400-L@midrange.com
Sender: owner-rpg400-l@midrange.com
Reply-To: RPG400-L@midrange.com
X-List-Name: RPG/400 Discussion Mailing List (RPG400-L@midrange.com)