RE: Working with DataArea in COBOL

Dear Amjad;

The "missing parameters" that you refer to are probably defined in the COBOL 
program's "linkage section" and "procedure using".

The usual AS/400 syntax to call a program is CALL PGM(MYPGM) PARM("MYPARM1" 
"MYPARM2" ...)
You can abbreviate this as CALL MYPGM PARM("MYPARM1" "MYPARM2" ...)
or even as CALL MYPGM ("MYPARM1" "MYPARM2" ...)

If you can't figure out how to pass the parameters in the call, then you 
might be best to write the parameters to an AS/400 database (perhaps called 
PARMIN) and then call the COBOL program.  The COBOL program could read the 
parameters from the file.

The COBOL program could pass parameters back by writing a record to another 
AS/400 database (perhaps called PARMOUT) from which your SOLARIS program 
could retrieve them.

Peter Lunde
AS/400 Cobol Consultant
peter_lunde@hotmail.com

>From: "Amjad Zamil" <amjadz@sts.com.jo>
>Reply-To: COBOL400-L@midrange.com
>To: <COBOL400-L@midrange.com>
>Subject: RE: Working with DataArea in COBOL
>Date: Mon, 12 Mar 2001 19:06:06 +0300
>
>Geir,
>
>  Thanx for your reply.Right now,I'm not using DataArea within the COBOL 
>code
>that's wun on the AS/400.I just went
>  through reading about the issue from internet resources and found alot
>pointing to DataArea as a key to solve this
>  problem.I can write a totally new sample COBOL program that meets with
>whatever modifications/requiremetns that
>  I should do to use DataArea if this's really the correct way to go
>including the required CL to build and use,as well.
>
>Best Regards
>
>  Amjad Zamil
>   -----Original Message-----
>   From: owner-cobol400-l@midrange.com
>[mailto:owner-cobol400-l@midrange.com]On Behalf Of
>geir.kildal@entragroup.com
>   Sent: Monday, March 12, 2001 6:35 PM
>   To: COBOL400-L@midrange.com
>   Subject: Re: Working with DataArea in COBOL
>
>
>
>   Amjad.
>
>   First of all, I would check to see if the COBOL-program is expecting
>parameters in the call.  You mention DataAreas, they are usually read in a
>CL-program, whitch  can call a COBOL-program.
>
>
>   Mvh.
>
>   Geir Kildal
>   Entra Data AS
>
>
>
>
>        "Amjad Zamil" <amjadz@sts.com.jo>
>         Sent by: owner-cobol400-l@midrange.com
>         12.03.01 14:10
>         Please respond to COBOL400-L
>
>
>                 To:        "Cobol400 Mailing List" 
><COBOL400-L@midrange.com>
>                 cc:
>                 Subject:        Working with DataArea in COBOL
>
>
>
>   Hi,
>
>    I'm totally new to AS/400 environment.I have searched through the 
>mailing
>   list archives for
>   information regarding my problem but couldn't find a clear answer.
>
>    I have a Sun server running Solaris 7 with SNAP-IX installed and
>configured
>   to set an Lu6.2
>   connection to AS/400 server.I managed to test the connectivity with the
>   AS/400 server and
>   it's working ok.The problem is that I have a small cobol program that 
>runs
>   on AS/400 and
>   I need to pass some parameters in/out to/from it from my SNAP-IX server
>and
>   when I check
>   the AS/400 log,I find that the cobol program was called but get an error
>   saying
>   "missing parameters".I think the problem is mainly related to the way 
>the
>   cobol program
>   is dealing with the DataArea.
>
>    I appreciate it if someone can provide me with the typical way a COBOL
>   program should work
>   with the DataArea and whatever pre-steps on the operating system level
>that
>   should be done.
>
>    Thanks alot in advance.
>
>    Best Regards
>
>    Amjad Zamil < amjadz@sts.com.jo >
>

_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END