|
midrange.com
CALL PGM(TESTQCMD) PARM('WRKACTJOBENDCMD') works
but my call to call does not
CALL PGM(TESTQCMD) PARM('CALL pgm('FORCASTX')ENDCMD
Any one see why I'm fried.
Wait
CALL PGM(TESTQCMD) PARM('CALL PGM(FORCASTX)ENDCMD')
Thanks
Bill Hopkins
"Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/06/2003 04:30 PM
Please respond to RPG programming on the AS400 / iSeries
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc:
Subject: RE: Junk Passed 32 on 3000A parm
d ExecuteCommand PR ExtPgm('QCMDEXC')
d cmdstr Like(cmd) Const Options(*VarSize)
d cmdLen 15P 5 Const
d cmdOpts 3A Const Options(*NOPASS)
D cmd S 3000A
D pos S 5U 0
c *entry plist
c parm cmd
C Eval pos = %scan('ENDCMD':cmd)
C Eval cmd = %replace(' ':cmd:pos:2999)
C CallP ExecuteCommand(cmd:%len(%trim
C (cmd)))
C eval *inlr = *on
C return
Compile call program like so just put ENDCMD after Command string you want
to run CALL PGM(TESTQCMD) PARM('CALL pgm('FORCASTX')ENDCMD
Bill Hopkins
"Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/06/2003 03:58 PM
Please respond to RPG programming on the AS400 / iSeries
To: RPG programming on the AS400 / iSeries
<rpg400-l@xxxxxxxxxxxx>
cc:
Subject: RE: Junk Passed 32 on 3000A parm
And I would like to give the credit to the always open ILE RPG Ref.
manual. :)
Thanks
Bill Hopkins
"Bob cozzi" <cozzi@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/06/2003 03:36 PM
Please respond to RPG programming on the AS400 / iSeries
To: "'RPG programming on the AS400 / iSeries'"
<rpg400-l@xxxxxxxxxxxx>
cc:
Subject: RE: Junk Passed 32 on 3000A parm
Yikes! Of course you are correct.
Bob Cozzi
Cozzi Consulting
www.rpgiv.com
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bill Hopkins
Sent: Thursday, November 06, 2003 2:27 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Junk Passed 32 on 3000A parm
%size on varying length field "(two bytes longer than the declared
maximum length)."
Thanks
Bill Hopkins
"Bob cozzi" <cozzi@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/06/2003 03:07 PM
Please respond to RPG programming on the AS400 / iSeries
To: "'RPG programming on the AS400 / iSeries'"
<rpg400-l@xxxxxxxxxxxx>
cc:
Subject: RE: Junk Passed 32 on 3000A parm
%LEN returns the declared length of a field.
%SIZE returns the number of bytes of memory a field occupies.
So a 500-byte character field returns 500 for either built-in function.
A Packed(7,2) field will return 7 with %LEN and 4 with %SIZE.
%LEN also returns the "current" length of a varying length field, whereas
%SIZE will return the max length (i.e., the declared length) of the
varying
length field.
Bob Cozzi
Cozzi Consulting
www.rpgiv.com
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Buck
Sent: Thursday, November 06, 2003 1:41 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Junk Passed 32 on 3000A parm
This is in the FAQ. Search for 'garbage' http://faq.midrange.com
--buck
_______________________________________________
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 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 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.
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.
