HP3000-L Archives

August 2002, Week 5

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Need AIF help --
From:
Brian Donaldson <[log in to unmask]>
Reply To:
[log in to unmask]
Date:
Thu, 29 Aug 2002 21:15:46 EDT
Content-Type:
text/plain
Parts/Attachments:
text/plain (95 lines) 
I am trying to retrieve all the system wide info on outstanding
recall/console messages. The program keeps aborting with an internal trap.

I suspect the working storage parameters (definitions) on the call are the
problem.

Not sure I have the w/s definitions correct. Can any AIF gurus out there tell
me what is wrong?


Source code:

$CONTROL OPTIMIZE=1,VALIDATE,BOUNDS,CROSSREF,POST85,ERRORS=5
$CONTROL SYNC32
IDENTIFICATION DIVISION.
PROGRAM-ID. AIF.
AUTHOR. BRIAN DONALDSON.
DATE-WRITTEN. AUGUST 2002.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES. CONDITION-CODE IS C-C.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-OVERALL-STATUS COMP.
     05  WS-OS-1 PIC S9(04).
     05  WS-OS-2 PIC S9(04).
01  WS-AIF-AREA PIC S9(09) COMP VALUE 14000.
01  WS-RETURN-ARRAY-1 COMP.
     05  WS-RA-1 PIC S9(09).
01  WS-RETURN-ARRAY-2 COMP.
     05  WS-RA-2 PIC S9(09).
01  WS-NUM-ENTRIES PIC S9(09) COMP.
01  WS-ITEMNUM-ARRAY COMP.
     05  WS-IA PIC S9(18).
01  WS-ITEMSTATUS-ARRAY COMP.
     05  WS-ISA PIC S9(09) OCCURS 100.
PROCEDURE DIVISION.
0100-MAINLINE.

*area = 14000 -- return info all all outstanding recall messages
     CALL INTRINSIC "AIFSYSWIDEGET" USING WS-OVERALL-STATUS,
                                          WS-AIF-AREA,
                                          WS-RETURN-ARRAY-1,
                                          WS-RETURN-ARRAY-2,
                                          WS-NUM-ENTRIES,
                                          WS-ITEMNUM-ARRAY,
                                          WS-ITEMSTATUS-ARRAY,
                                          \\ \\ \\ \\
     END-CALL.
     IF C-C NOT = ZEROES THEN
        DISPLAY 'AIFSYSWIDEGET FAILED'
     END-IF.
     GOBACK.

FILE SYSINTR=AIFINTR.PUB.SYS
FILE SYSINTR.PUB.SYS=AIFINTR.PUB.SYS
FILE AS=AIFSRC.SOURCE
FILE AO=AIFSRC.NMOBJ
FILE AX=AIFSRC.NMPROG

Brians World:COB85XL *as,*AO,$nULL

PAGE 0001  COBOL II/iX HP31500A.04.20  [85] Copyright Hewlett-Packard CO.
1987

0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)

    DATA AREA IS      1D4 BYTES.
    CPU TIME = 0:00:00.  WALL TIME = 0:00:00.

END OF PROGRAM
END OF COMPILE
Brians World:LINK FROM=*AO;TO=*AX
HP Link Editor/iX (HP30315A.06.15) Copyright Hewlett-Packard Co 1986

LinkEd> LINK FROM=*AO;TO=*AX

Brians World:*AX

**** INTERNAL TRAP
Instruction Memory Protection Trap
[VSM] Undecoded status.info = -60
ABORT: AIFSRC.NMPROG.SPUTIL
NM SYS   a.fff7f000 $RECOVER_END
Program terminated in an error state. (CIERR 976)
Brians World:


Ho hum..........

Brian

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2