RE: HP 3000 TO ISERIES

Adrienne,
Here is a example of calling qcmdexc in Cobol. 
This example shows how to setup an override command before you open a
file in COBOL. The HPCICOMMAND is very similar to the QCMDEXC in that
you could pass any MPE/iX job control command to it. QCMDEXC is the same
so you can pass almost any valid command to it. 

WORKING-STORAGE SECTION.
01  WS-SRCFL-OVERRIDE.                                        
    03  FILLER             PIC X(40) VALUE                    
    "OVRDBF FILE(PROGIN) TOFILE(QLBLSRC) MBR(".               
    03  WS-SRCFL-MEMBER    PIC X(10) VALUE SPACES.            
    03  FILLER             PIC X(01) VALUE ")".               
01  WS-SRCFL-OVERRIDE-SIZE  PIC S9(10)V9(5) VALUE 51.0 COMP-3.

PROCEDURE DIVISION.

Move "SAMPLE" to WS-SRCFL-MEMBER. 
CALL "QCMDEXC" USING WS-SRCFL-OVERRIDE,     
                     WS-SRCFL-OVERRIDE-SIZE.


more....

My company has developed some tools to help HP3000 customers migrate to
iSeries. If you can be of any assistance please contact me offline. 

Thanks,
Jerry M Thomas
Cothern Computer Systems, Inc.
1640 Lelia Drive 
Jackson, MS 39216
phone : 601-718-0811
email : jerryt@xxxxxxxxxxx 


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Adrienne McConnon
Sent: Thursday, October 20, 2005 12: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