|
midrange.com
Darren, I could try your programs on my test system. As long as nothing is
changed on my PC's registry.
Julio Domingo
Systems Analyst
American General Finance Inc.
601 North West Second Street
Evansville, IN 47705
Phone: 812-468-5438
Fax: 812-468-5527
julio_domingo@xxxxxxxxxxxxx
rpg400-l-request@m
idrange.com To: rpg400-l@xxxxxxxxxxxx
Sent by: cc:
rpg400-l-bounces@m Subject: RPG400-L Digest, Vol
3, Issue 449
idrange.com
06/28/2004 11:01
AM
Please respond to
rpg400-l
Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."
Today's Topics:
1. RE: Testing a TCP/IP RPG application (Darren McBride)
2. Re: SFL Cursor Progression (RPower@xxxxxxxxxx)
3. RE: Sub-procedures and internal print file
(Rick.Chevalier@xxxxxxxxxxxxxxx)
4. Need Help On a Problem (Mike Wills)
5. RE: Need Help On a Problem (Bartell, Aaron L. (TC))
6. RE: Need Help On a Problem (Bob Cozzi)
7. RE: Need Help On a Problem (DeLong, Eric)
----------------------------------------------------------------------
message: 1
date: Mon, 28 Jun 2004 11:36:29 +0100
from: "Darren McBride" <darren.mcbride@xxxxxxxxxxxxxxxxxx>
subject: RE: Testing a TCP/IP RPG application
Mahesh,
I don't supply the source code, but would be happy to send you the program
to test. I am out of the office until the end of the week, but will send it
on to you when I get back.
Kind regards,
Darren
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Mahesh Pawar
Sent: 25 June 2004 14:11
To: RPG programming on the AS400 / iSeries
Subject: RE: Testing a TCP/IP RPG application
Hey
I am also Interested in such program.please send me also document or soruce
code Thanks in Advance
Regards
Mahesh Pawar
The Stuckey Company
Houston,TX
"Corteville, Thierry" <Thierry.Corteville@xxxxxxxxx> wrote:
Do you have a document describing what the possibilities are. ?
In what differs your command from the default 'strpccmd' in combination
with
strpco ?
Does it offer more.?
Does it need installing software on a pc ?
Otherwise , I'm interested in testing the program...
Kind Regards
Thierry
-----Original Message-----
From: Darren McBride [mailto:darren.mcbride@xxxxxxxxxxxxxxxxxx]
Sent: woensdag 23 juni 2004 16:00
To: 'RPG programming on the AS400 / iSeries'
Subject: Testing a TCP/IP RPG application
Folks,
I have written a set of programs for the AS/400 and the PC that enables RPG
applications to read PC databases, control Outlook/Word/Excel, browse to
web
pages etc. So from a 5250 screen for example, users can press an F-key and
Word will popup with a predefined template with data from the AS/400 or you
can send an email via Exchange from an RPG program. This are small examples
of how it can be used.
The problem is that it is working fine in two sites, and I have sent it to
two other sites for evaluation. In the new sites under evaluation, the
communication of data between the AS/400 and the PC does not work and I do
not have access to their AS/400's. I have asked all the relevant questions
(is TCP/IP started, what are the network addresses etc.) and all the
answers
appear fine. The PC simply does not receive the information from the AS/400
that the RPG programs is sending using the sockets API. I don't know what
minimum TCP/IP configuration on the AS/400 is required to make it work
(*DFTROUTE in a routing table or something).
Is there anyone out there with their own AS/400 or with a test AS/400 that
would be willing to take a copy of my programs and test it under different
TCP/IP configurations (or at least tell me the minimum of what is
required).
I can assure you that the programs will not destroy or damage anything on
you and a single library is all that is required on the AS/400.
In return for this gracious favour I can either pay a small reward, make a
dontation to the charity of their choice or give them a worldwide licence
of
the software to use in their/their clients company for free (how's about
that then!!).
All I need to find out is what is required with this damned thing to make
it
work on an ethernet network in any AS/400 site.
I would ask that people reply to me privately so as not to clog up the
midrange lists.
Many thanks in advance,
Darren
--
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.
---------------------------------
Do you Yahoo!?
Yahoo! Mail - 50x more storage than other providers!
--
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.
------------------------------
message: 2
date: Mon, 28 Jun 2004 09:27:25 -0230
from: RPower@xxxxxxxxxx
subject: Re: SFL Cursor Progression
Just got back from vacation and noticed this thread. A little late with
my response but I just had the exact same issue. I wanted a two column
subfile to act like a two column selection where the cursor went down the
left side first then down the right side. I did this by specifying
SFLCSRPRG on the input capable field of the subfile. It will keep the
cursor moving down the left side column, then the right when tab or field
exit is pressed. Sample:
A R SPLGUDS3 SFL
A*%%TS SD 20040614 120755 RPOWER REL-V5R2M0 5722-WDS
A SF3OPC 1A B 15 2
A SFLCSRPRG
A SF3CAS 30A O 15 4
A SF3OPR 1A B 15 38
A SFLCSRPRG
A SF3REM 30A O 15 40
HTH, sorry for late reply.
Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. -
Sir Winston Churchill
T.Bryant@xxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/21/2004 08:29 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc
Subject
Re: SFL Cursor Progression
I fixed this problem by specifying CHGINPDFT(FE) so that use must field
exit.
The user can just use the arrow keys to move the cursor down the column.
Not ideal but satisfactory solution.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Troy Bryant
Analyst Programmer
Patrick Autocare.
Phone: +61 03 9926 9913
Fax: +61 03 9926 9977
Mobile: +61 0408 397 333
T.Bryant@xxxxxxxxxxxxxx
"James H. H.
Lampert" To: RPG programming
on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
<jamesl@xxxxxxxxxx cc:
m> Subject: Re: SFL Cursor
Progression
Sent by:
rpg400-l-bounces@m
idrange.com
22/06/2004 12:12
AM
Please respond to
RPG programming on
the AS400 /
iSeries
CWilt@xxxxxxxxxxxx wrote:
>
> Not quite following what you are asking.
>
> If you've only got one input capable field. The cursor should simply
move
> down the column.
>
> Is this not the case?
Just because he has only one input capable field per subfile record
doesn't necessarily mean that he only has one subfile record per screen
row.
About the only way I can think of to make this work as desired would be
to (1) use a terminal or emulator that allows you to control cursor
progression, and (2) completely ignore the operating system's subfile
support, and either build a regular display file record to simulate
subfiles with cursor progression, or do your screen writes entirely in
user-defined mode (big pain in the equus asinius).
--
James H. H. Lampert
Professional Dilettante
http://www.hb.quik.com/jamesl
http://members.hostedscripts.com/antispam.html
http://www.thehungersite.com
Help America's Passenger Trains. http://www.saveamtrak.org
Read My Lips: No More Atrocities!
--
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.
--
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.
This OutBound email has been scanned for Viruses
------------------------------
message: 3
date: Mon, 28 Jun 2004 09:08:16 -0500
from: <Rick.Chevalier@xxxxxxxxxxxxxxx>
subject: RE: Sub-procedures and internal print file
My apologies to the list. After I received your replies the answer was
obvious. The question came from one of our senior developers and I didn't
check it out before posting the question.
Rick
------------------------------
message: 4
date: Mon, 28 Jun 2004 10:29:54 -0500
from: Mike Wills <koldark@xxxxxxxxx>
subject: Need Help On a Problem
I have this program that was worked flawlessly for a long time.
Recently, it has not been processing one of our spool files like it
should. Here is my code:
C Eval DataQueue = WPQData
/free
Cmd = 'SBMJOB CMD(CALL PGM(CUGPRCSMON) PARM(''' + DataQueue + ''')) ' +
'JOB(PROCESSMON) JOBD(MONPDFJOBD) JOBQ(' + SBMJOBQ + ')';
#execClCmd(Cmd);
/end-free
DataQueue is a data structure. Here is the definition and data that is in
it.
D DataQueue DS
D Function 10A
*SPOOL
D RecType 2A
01
D JobName 10A
Job Name
D JobUserName 10A
Job User Name
D JubNumber 6A
Job Number
D SplfName 10A
Spool File Name
D SplfNumber 8B 0
Spool File Number
D OutqName 10A
Output Queue Name
D OutqLib 10A
Output Queue Library
FUNCTION OF DATAQUEUE = '*SPOOL '
RECTYPE OF DATAQUEUE = '01'
JOBNAME OF DATAQUEUE = 'GL221 '
JOBUSERNAME OF DATAQUEUE = 'LAWSON7 '
JUBNUMBER OF DATAQUEUE = '112185'
SPLFNAME OF DATAQUEUE = 'GL221_PRT '
SPLFNUMBER OF DATAQUEUE = 00000125.
OUTQNAME OF DATAQUEUE = 'LAWPDF '
OUTQLIB OF DATAQUEUE = 'QGPL '
Now when that gets into my SBMJOB, this is what it contians:
....5...10...15...20...25...30...35...40...45...50...55...60
1 'SBMJOB CMD(CALL PGM(CUGPRCSMON) PARM('*SPOOL 01GL221 '
61 'LAWSON7 112185GL221_PRT 'LAWPDF QGPL ')) JOB(PR'
121 'OCESSMON) JOBD(MONPDFJOBD) JOBQ(LAW7PDF ) '
Note the " ' " in the middle of the parm. Like I said this has worked
flawlessly for almost 2 years, what is the corralation between the 125
and the single quote?
Could I define 'SplfNumber' as alpha and not have a problem when my
called program is recieving the exact same defined DS?
Thanks for any help!
--
Mike Wills
iSeries Programmer/Lawson Administrator
koldark@xxxxxxxxx
http://www.koldark.net
------------------------------
message: 5
date: Mon, 28 Jun 2004 10:33:52 -0500
from: "Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>
subject: RE: Need Help On a Problem
Not sure if it is at all related, but when I was doing something similar
with PF triggers I had the same problem. In the end it turned out to be
that the "reserved" fields within the trigger DS that I was sending onto
the
next program had a single quote in it which of course screwed up the SBMJOB
I was doing.
Take a look at all of the fields values before you create the SBMJOB
statement and see if one of them contains a single quote.
HTH,
Aaron Bartell
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Mike Wills
Sent: Monday, June 28, 2004 10:30 AM
To: Midrange_RPG400_L
Subject: Need Help On a Problem
I have this program that was worked flawlessly for a long time.
Recently, it has not been processing one of our spool files like it should.
Here is my code:
C Eval DataQueue = WPQData
/free
Cmd = 'SBMJOB CMD(CALL PGM(CUGPRCSMON) PARM(''' + DataQueue + ''')) ' +
'JOB(PROCESSMON) JOBD(MONPDFJOBD) JOBQ(' + SBMJOBQ + ')';
#execClCmd(Cmd);
/end-free
DataQueue is a data structure. Here is the definition and data that is in
it.
D DataQueue DS
D Function 10A
*SPOOL
D RecType 2A
01
D JobName 10A
Job Name
D JobUserName 10A
Job User Name
D JubNumber 6A
Job Number
D SplfName 10A
Spool File Name
D SplfNumber 8B 0
Spool File Number
D OutqName 10A
Output Queue Name
D OutqLib 10A
Output Queue Library
FUNCTION OF DATAQUEUE = '*SPOOL '
RECTYPE OF DATAQUEUE = '01'
JOBNAME OF DATAQUEUE = 'GL221 '
JOBUSERNAME OF DATAQUEUE = 'LAWSON7 '
JUBNUMBER OF DATAQUEUE = '112185'
SPLFNAME OF DATAQUEUE = 'GL221_PRT '
SPLFNUMBER OF DATAQUEUE = 00000125.
OUTQNAME OF DATAQUEUE = 'LAWPDF '
OUTQLIB OF DATAQUEUE = 'QGPL '
Now when that gets into my SBMJOB, this is what it contians:
....5...10...15...20...25...30...35...40...45...50...55...60
1 'SBMJOB CMD(CALL PGM(CUGPRCSMON) PARM('*SPOOL 01GL221 '
61 'LAWSON7 112185GL221_PRT 'LAWPDF QGPL ')) JOB(PR'
121 'OCESSMON) JOBD(MONPDFJOBD) JOBQ(LAW7PDF ) '
Note the " ' " in the middle of the parm. Like I said this has worked
flawlessly for almost 2 years, what is the corralation between the 125 and
the single quote?
Could I define 'SplfNumber' as alpha and not have a problem when my called
program is recieving the exact same defined DS?
Thanks for any help!
--
Mike Wills
iSeries Programmer/Lawson Administrator
koldark@xxxxxxxxx
http://www.koldark.net
--
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.
------------------------------
message: 6
date: Mon, 28 Jun 2004 10:56:18 -0500
from: "Bob Cozzi" <cozzi@xxxxxxxxx>
subject: RE: Need Help On a Problem
Ah... you can't pass binary data as a parm to a CALL on a submit job
command
and expect it to "behave".
Meaning, if you embed "binary" data in the middle of "text" the binary data
will be treated as the character equivalent of the binary data. Hence if
B'0125' is a QUOTE you will have a QUOTE in your parameter string.
What can you do about it? Not much short of wrapping the call in something
that can read the data structure and then call the program; passing the
data
as a parm via compiled-call will work, of course.
-Bob Cozzi
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Mike Wills
Sent: Monday, June 28, 2004 10:30 AM
To: Midrange_RPG400_L
Subject: Need Help On a Problem
I have this program that was worked flawlessly for a long time.
Recently, it has not been processing one of our spool files like it
should. Here is my code:
C Eval DataQueue = WPQData
/free
Cmd = 'SBMJOB CMD(CALL PGM(CUGPRCSMON) PARM(''' + DataQueue + ''')) ' +
'JOB(PROCESSMON) JOBD(MONPDFJOBD) JOBQ(' + SBMJOBQ + ')';
#execClCmd(Cmd);
/end-free
DataQueue is a data structure. Here is the definition and data that is in
it.
D DataQueue DS
D Function 10A
*SPOOL
D RecType 2A
01
D JobName 10A
Job Name
D JobUserName 10A
Job User Name
D JubNumber 6A
Job Number
D SplfName 10A
Spool File Name
D SplfNumber 8B 0
Spool File Number
D OutqName 10A
Output Queue Name
D OutqLib 10A
Output Queue Library
FUNCTION OF DATAQUEUE = '*SPOOL '
RECTYPE OF DATAQUEUE = '01'
JOBNAME OF DATAQUEUE = 'GL221 '
JOBUSERNAME OF DATAQUEUE = 'LAWSON7 '
JUBNUMBER OF DATAQUEUE = '112185'
SPLFNAME OF DATAQUEUE = 'GL221_PRT '
SPLFNUMBER OF DATAQUEUE = 00000125.
OUTQNAME OF DATAQUEUE = 'LAWPDF '
OUTQLIB OF DATAQUEUE = 'QGPL '
Now when that gets into my SBMJOB, this is what it contians:
....5...10...15...20...25...30...35...40...45...50...55...60
1 'SBMJOB CMD(CALL PGM(CUGPRCSMON) PARM('*SPOOL 01GL221 '
61 'LAWSON7 112185GL221_PRT 'LAWPDF QGPL ')) JOB(PR'
121 'OCESSMON) JOBD(MONPDFJOBD) JOBQ(LAW7PDF ) '
Note the " ' " in the middle of the parm. Like I said this has worked
flawlessly for almost 2 years, what is the corralation between the 125
and the single quote?
Could I define 'SplfNumber' as alpha and not have a problem when my
called program is recieving the exact same defined DS?
Thanks for any help!
--
Mike Wills
iSeries Programmer/Lawson Administrator
koldark@xxxxxxxxx
http://www.koldark.net
--
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.
------------------------------
message: 7
date: Mon, 28 Jun 2004 10:58:04 -0500
from: "DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>
subject: RE: Need Help On a Problem
Mike, the use of a binary (8B 0) in the datastructure looks wrong to me...
The command line is a character string parser, and would not know that the
8B 0 value is in face a binary numeric. In this case, the value stored in
the SplfNumber fiels just happens to correspond to the value of the
apostrophe in your codepage. When the command line interprets the string,
it just thinks it's more character data, and when it parses, it gets
confused when it sees the binary value. You might be better off
eliminating
the use of the binary value and passing this as a zoned numeric, which
co-exists with character data quite hapily. You'd have to change the
parameter data-structure in both (all) program that interface with the
CUGPRCSMON program.
Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863
-----Original Message-----
From: Mike Wills [mailto:koldark@xxxxxxxxx]
Sent: Monday, June 28, 2004 10:30 AM
To: Midrange_RPG400_L
Subject: Need Help On a Problem
I have this program that was worked flawlessly for a long time.
Recently, it has not been processing one of our spool files like it
should. Here is my code:
C Eval DataQueue = WPQData
/free
Cmd = 'SBMJOB CMD(CALL PGM(CUGPRCSMON) PARM(''' + DataQueue + ''')) ' +
'JOB(PROCESSMON) JOBD(MONPDFJOBD) JOBQ(' + SBMJOBQ + ')';
#execClCmd(Cmd);
/end-free
DataQueue is a data structure. Here is the definition and data that is in
it.
D DataQueue DS
D Function 10A
*SPOOL
D RecType 2A
01
D JobName 10A
Job Name
D JobUserName 10A
Job User Name
D JubNumber 6A
Job Number
D SplfName 10A
Spool File Name
D SplfNumber 8B 0
Spool File Number
D OutqName 10A
Output Queue Name
D OutqLib 10A
Output Queue Library
FUNCTION OF DATAQUEUE = '*SPOOL '
RECTYPE OF DATAQUEUE = '01'
JOBNAME OF DATAQUEUE = 'GL221 '
JOBUSERNAME OF DATAQUEUE = 'LAWSON7 '
JUBNUMBER OF DATAQUEUE = '112185'
SPLFNAME OF DATAQUEUE = 'GL221_PRT '
SPLFNUMBER OF DATAQUEUE = 00000125.
OUTQNAME OF DATAQUEUE = 'LAWPDF '
OUTQLIB OF DATAQUEUE = 'QGPL '
Now when that gets into my SBMJOB, this is what it contians:
....5...10...15...20...25...30...35...40...45...50...55...60
1 'SBMJOB CMD(CALL PGM(CUGPRCSMON) PARM('*SPOOL 01GL221 '
61 'LAWSON7 112185GL221_PRT 'LAWPDF QGPL ')) JOB(PR'
121 'OCESSMON) JOBD(MONPDFJOBD) JOBQ(LAW7PDF ) '
Note the " ' " in the middle of the parm. Like I said this has worked
flawlessly for almost 2 years, what is the corralation between the 125
and the single quote?
Could I define 'SplfNumber' as alpha and not have a problem when my
called program is recieving the exact same defined DS?
Thanks for any help!
--
Mike Wills
iSeries Programmer/Lawson Administrator
koldark@xxxxxxxxx
http://www.koldark.net
--
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.
------------------------------
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) digest 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.
End of RPG400-L Digest, Vol 3, Issue 449
****************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
