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

Adrienne,

Initially, I'd recommand using the:

CALL 'QCMDEXC' 
      USING COMMAND-STRING COMMAND-LENGTH

Where 'QCMDEXC' is a "generic command API" that you can use to issue just
about any "os/400" type command from within a COBOL program.  The
COMMAND-STRING is the full os/400 command and the COMMAND-LENGTH is the
length in PIC 9(10)(V9(5) COMP-3 format. 

See
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/qcmdex
c.htm

For detailed API information.  This could be used to implement at least 1,2,
and 4 of your questions below.

Hope this helps.

David

-----Original Message-----
From: cobol400-l-bounces+dlscott=smartwebtk.com@xxxxxxxxxxxx
[mailto:cobol400-l-bounces+dlscott=smartwebtk.com@xxxxxxxxxxxx] On Behalf Of
Adrienne McConnon
Sent: Monday, October 24, 2005 9:18 AM
To: cobol400-l@xxxxxxxxxxxx
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

--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/cobol400-l.



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

message: 3
date: Thu, 20 Oct 2005 13:37:44 -0400
from: Don <dr2@xxxxxxxx>
subject: RE: [COBOL400-L] HP 3000 TO ISERIES

An intrinsic in HP language is what we would call an API for all
practical 
purposes.    I first started playing with them back when I
programmed in SPL on a 3000...

Don in DC

At 01:10 PM 10/20/2005 -0400, you wrote:
>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
>
>--
>This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
>To post a message email: COBOL400-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
>or email: COBOL400-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/cobol400-l.
>
>--
>This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
>To post a message email: COBOL400-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
>or email: COBOL400-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/cobol400-l.
>




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

message: 4
date: Thu, 20 Oct 2005 18:30:23 +0000
from: "Paul Raulerson" <paul@xxxxxxxxxxxxxx>
subject: Re:  [COBOL400-L] HP 3000 TO ISERIES

Yeah- but you have the COBOL Intrinsic functions, which are way
different from API calls. Some examples of what HP calls Intrinsic would
be instructive. :) 

-Paul


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