RE: Working with DataArea in COBOL

[Cathy Dales <CathyDales@xxxxxxxxxxxxxx>]

Amjad,

I hope this helps.



CLP:

RTVDTAARA  DTAARA(*LIBL/MNTHEND2 (23 8)) RTNVAR(&FIELD)     
            
CALL       PGM(XXXXXCBL) PARM(&FIELD)


COBOL PROGRAM XXXXXCBL:

00        LINKAGE SECTION.                              
00        01  PARMFIELD.                                 
00            05  PARM-YEAR     PIC 9(4).               
00            05  PARM-MONTH    PIC 99.                 
00            05  PARM-DAY      PIC 99.                                   
00       *                                              
00 010300 PROCEDURE DIVISION                            
00            USING  PARMFIELD.                 
00

-----Original Message-----
From: Amjad Zamil [mailto:amjadz@sts.com.jo]
Sent: Monday, March 12, 2001 8:10 AM
To: Cobol400 Mailing List
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 >

+---
| 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
+---
| 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