Re: RE: COBOL400-L Digest, Vol 3, Issue 103

[Roman Miklos <RMiklos@xxxxxx>]

Instead of HPCICOMMAND you can probably use QCMDEX.

Example usage:

            CALL 'QCMDEXC' USING CL-CMD PACK-VAL. 
where the string
             CL-CMD                              X(200)
contains the command and the packed decimal
             PACK-VAL                            C10V5-3
contains the length of the command

Roman




"Adrienne McConnon" <Adrienne.McConnon@xxxxxxxxxxxx> 
Sent by: cobol400-l-bounces+rmiklos=pss.sk@xxxxxxxxxxxx
24.10.2005 15:18
Please respond to
COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>


To
<cobol400-l@xxxxxxxxxxxx>
cc

Subject
[COBOL400-L] RE: COBOL400-L Digest, Vol 3, Issue 103






Hello all - 

I must say I am thrilled I got some responses.   I did a little more
digging on the iSeries and also found some information on functions -
but I am not sure these are doable in COBOl?  Anybody know?

As far as the HP intrinsics go, I will need to convert to iSeries the
following:

1.  PAUSE - which will suspend processing for a specified number of
seconds.  Found this as a function on iSeries - but it looked like maybe
it was C and I could not find any confirmation that this function is
doable in COBOL.
2.  HPCICOMMAND - Is basically an intrinsic that allows you to execute a
command line type command - I need to stream a job and copy a file,
manipulate JOBQ and initiate FTP and execute some FTP commands - which I
think I can do by calling a CL (please correct me if I am wrong).  I
would rather execute the commands from the COBOL program rather that
calling CL as I do believe I read that the COBOL option would be more
efficient.
3.   'SETJCW' - Sets bits in the system job control word (JCW).
4.  FRENAME -  NM and CM callable.  Renames an open disk file (and its
lockword, if applicable). The file being renamed must be either: A new
file, An old file (permanent or temporary), opened for exclusive access
with the exclusive option of the HPFOPEN/FOPEN intrinsics, and with
security provisions allowing write access.
5.  Plus some error message intrinsics - found a lot about error
handling on iSeries - still trying to decipeher.
6.  Also others - but I think if I can get a good grasp of a few of
these the others will fall into place.

Thanks so much !

Have a great day !

Adrienne




-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of
cobol400-l-request@xxxxxxxxxxxx
Sent: Friday, October 21, 2005 1:01 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: COBOL400-L Digest, Vol 3, Issue 103

Send COBOL400-L mailing list submissions to
                 cobol400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
                 http://lists.midrange.com/mailman/listinfo/cobol400-l
or, via email, send a message with subject or body 'help' to
                 cobol400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
                 cobol400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of COBOL400-L digest..."


Today's Topics:

   1.  HP 3000 TO ISERIES (Adrienne McConnon)
   2. RE:  HP 3000 TO ISERIES (Gregory A. Garner)
   3. RE:  HP 3000 TO ISERIES (Don)
   4. Re:   HP 3000 TO ISERIES (Paul Raulerson)


----------------------------------------------------------------------

message: 1
date: Thu, 20 Oct 2005 12:02:04 -0500
from: "Adrienne McConnon" <Adrienne.McConnon@xxxxxxxxxxxx>
subject: [COBOL400-L] HP 3000 TO ISERIES

HELLO 

 

I am new to this forum and to the iSeries - but not to COBOL .  We are
currently converting our HP 3000 Cobol programs to ILE Cobol and your
forums have helped me with some roadblocks I have encountered.  My
question is - is there anybody, site, book - out there with any
information about converting HP Intrinsic calls to API.  From what I
read - I probably could figure out the iSeries equivalent based on the
English definitions - however - being new to the iSeries - I do not want
to miss anything or take anything for granted.  If you have any
documentation or advice - please respond.

 

Thanks,

 

Adrienne



------------------------------

message: 2
date: Thu, 20 Oct 2005 13:10:25 -0400
from: "Gregory A. Garner" <ggarner_gds@xxxxxxxxxxxxxx>
subject: RE: [COBOL400-L] HP 3000 TO ISERIES

Can you define "HP Intrinsic Calls"?

Gregory A. Garner
Garner Data Systems, Inc
4270 Grand Teton Parkway
Suwanee, GA 30024
Phone: 770 845 9636  Fax:770 614 3496

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Adrienne McConnon
Sent: Thursday, October 20, 2005 1:02 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] HP 3000 TO ISERIES

HELLO 

 

I am new to this forum and to the iSeries - but not to COBOL .  We are
currently converting our HP 3000 Cobol programs to ILE Cobol and your
forums have helped me with some roadblocks I have encountered.  My
question is - is there anybody, site, book - out there with any
information about converting HP Intrinsic calls to API.  From what I
read - I probably could figure out the iSeries equivalent based on the
English definitions - however - being new to the iSeries - I do not want
to miss anything or take anything for granted.  If you have any
documentation or advice - please respond.

 

Thanks,

 

Adrienne