RE: Strange problem with linkage variables! -- COBOL400-L

Howard!

We are at 4.4 as well. And as I said, it worked! Strange.....

Mvh.

Geir

"Weatherly, Howard" <hweatherly@dlis.dla.mil>
Sent by: owner-cobol400-l@midrange.com

15.05.01 14:48
Please respond to COBOL400-L

To: "'COBOL400-L@midrange.com'" <COBOL400-L@midrange.com>
cc:
Subject: RE: Strange problem with linkage variables!

I really should not get involved with this but some things are just too compelling to leave alone; The sub-levels are in area B otherwise the compiler would fuss, (level one is in column 10 area A) and leading zeros make no difference at all to the compiler..... with dyslexia, I tend to be less zealous with extra characters. :-) But thanks anyway! Interesting as this problem is, it gets better!!!! If I swap the hyphens and periods for obnoxious characters e.g. ' ! ' for ' - ' and ' # ' for ' . ', the command line call works as expected.

What version of the OS are you using?? we are on 4.4
-----Original Message-----
From: geir.kildal@entragroup.com [mailto:geir.kildal@entragroup.com]
Sent: Tuesday, May 15, 2001 03:54
To: COBOL400-L@midrange.com
Subject: Re: Strange problem with linkage variables!

Howard.

This is indeed strange. I have tried exactly your code on my AS/400, and it works with no problems! Are you sure that you don't have other situations causing this message ( level checks on files, files not found etc).

Anyway, you can try to define your working-storage fields like this(just to see if it makes any difference):

......-A+++B++++++++++++++++++++++++++++++++++++++++++++++++++++++
WORKING-STORAGE SECTION.
01 WS-NEW-RECORD.
   05 WS-TMSTMP1-4564    PIC X(24).
  05 WS-TYP-LST-ACT-0044 PIC X(01).
   88 INSERT-PROCESS    VALUE "A".
   88 DELETE-PROCESS    VALUE "D".
   05 WS-CAGE-CD-9250    PIC X(05).
   05 WS-APP-TYP-9262    PIC X(02).

Notice the 'A' and 'B'-areas - the '05'-level is inside the 'B'-area. The level-numbers are two digits.

Mvh.

Geir Kildal

"Weatherly, Howard" <hweatherly@dlis.dla.mil>
Sent by: owner-cobol400-l@midrange.com

14.05.01 21:20
Please respond to COBOL400-L

To:    "COBOL Midrange (E-mail)" <COBOL400-L@midrange.com>
cc:
   Subject: Strange problem with linkage variables!

I am working on a program that receives data through the linkage section, only problem is that the first field can not be referenced!

Doing a prompted call and entering: '2001-05-05-06.45.20.402800A15992CD' in the parm field results in the field WS-TMSTMP1-4564 producing the message "POINTER NOT SET FOR REFERENCED LOCATION".

This is strange because I changed the code (see below) to move the linkage variable (LS-NEW-RECORD) to working storage (WS-NEW-RECORD). If I prompt (Interactive debugger) on LS-NEW-RECORD, the data appears as you would expect it. If however you look at WS-NEW-RECORD after the move, all fields except WS-TMSTMP1-4564 are available.

Is there something about the format of timestamp data that is causing me grief here??


   1 WS-NEW-RECORD.
     2 WS-TMSTMP1-4564        Pic X(26).
     2 WS-TYP-LST-ACT-0044    Pic X(01).
       88 INSERT-PROCESS                    VALUE "A".
       88 DELETE-PROCESS                    VALUE "D".
     2 WS-CAGE-CD-9250        Pic X(05).
     2 WS-APP-TYP-9262        Pic X(02).

Linkage Section.
   1 LS-NEW-RECORD            Pic X(34).

Procedure Division
     Using LS-NEW-RECORD
     .
0000-MAIN SECTION.
   0000-Begin.

     Move LS-NEW-RECORD to WS-NEW-RECORD


Howard Weatherly

(616)961-4324

hweatherly@dlis.dla.mil
howard.weatherly@ctg.com

<<...OLE_Obj...>>   <<...OLE_Obj...>> <<...OLE_Obj...>>

<<Weatherly, Howard.vcf>>