Natural error 0937 Wrong array derfined in param

, ,
1

How do you determine exactly which field in PDA is causing this error.

SE55XR1N 0230 NAT0937 Wrong array defined in param. 33 (Subprogram SE55XRAN

SE55XR1N
0120 PARAMETER USING SE–NØAA /* Masterareal til police-nøgler PN
0130 PARAMETER USING ZXINFOPA /* Standard fejlareal
0140 LOCAL USING N3AMACCA /*
0160 LOCAL USING SE55XRAA /* XR
0170 END-DEFINE
0180 *
0230 CALLNAT ‘SE55XRAN’ PN XR N3AMACCA ZXINFOPA

SE55XRAN
0140 PARAMETER USING SE–NØAA /* Masterareal til police-nøgler
0150 PARAMETER USING SE55XRAA /* Multiacces til dækning på forsikringssted
0160 PARAMETER USING N3AMACCA /* Multiaccess styring
0170 PARAMETER USING ZXINFOPA /* Standard fejlareal

SE–NØAA
0070 1 PN
0080 2 PN-INTERN-IX (I4)
0090 2 XL-ANTAL-BYTES (I2)
0100 2 STYRING-B8 (B8)
0110 2 STYRING-A16 (A16)
0120 2 XL-BYTES (A1/1:2931)
0130 2 REDEFINE XL-BYTES
0140 3 XL-DATA-S
0150 4 INSTRUKTION (A8)
0160 4 OBJEKT-TYPE (A4) /* NØGLE
0170 4 OBJEKT-NR (N4) /* NØGLE
0180 4 OBJEKT-NIVEAU1 (P3) /* NØGLE
0190 4 OBJEKT-NIVEAU2 (P3) /* NØGLE
0200 4 OBJEKT-NIVEAU3 (P3) /* NØGLE
0210 4 CELLE-NR (N3) /* NØGLE
0220 4 DÆKNING-TYPE (A4) /* NØGLE
0230 4 TEKST-TYPE (A4) /* NØGLE
0240 4 TEKST-NR (A4) /* NØGLE
0250 4 OBJEKT-REF-NR (N4) /* NØGLE
0260 4 PRODUKT-TYPE (A4) /* NØGLE
0270 4 ISN-NR (N10) /* NØGLE
0280 4 NØGLE-ID (A4/1:7) /* FRIE NØGLER
0290 4 NØGLE-VÆRDI (A20/1:7) /* FRIE NØGLER
0300 4 ACCES (B8) /* “FLEMMINGS” ACCES AREAL
0310 4 NØ-NØGLE (B8) /* DEDIKEREDE NØGLER BRANCHE
0320 4 WA-NØGLE (B8) /* ADVARSLER
0330 4 GOH-NØGLE (B8) /* HURTIGAREAL OBJEKTER
0340 4 OTH-NØGLE (B8) /* HURTIGAREAL OBJEKT TYPER
0350 4 GDH-NØGLE (B8) /* HURTIGAREAL DÆKNINGER
0360 4 DTH-NØGLE (B8) /* HURTIGAREAL DÆKNING TYPE
0370 4 SDGY-NØGLE (B8) /* SIDST GYLDIGE FORSIKRING
0380 4 VAGL-NØGLE (B8) /* UDSEENDE VED START AF BEH.
0390 4 RESTART-NØGLE (B8) /* Nøgle til Restartareal
0400 4 FORS-IDENT (N13)
0410 4 REDEFINE FORS-IDENT
0420 5 FGR (N3)
0430 5 REDEFINE FGR
0440 6 GRUPPE-TJM-FGR (A1) /*
0450 6 BRANCHE-TEGN (A2) /* TO SIDSTE CIFFRE I FGR
0460 5 POL (N10)
0470 5 REDEFINE POL
0480 6 POL-A (A10)
0490 4 SDTRANSA-A16 (A16) /* NØGLEN TIL DOP’S NØGLER
0500 4 VALG-KODE (A1) /* POLICE/TILBUD/IGANG/REGNEM.

2

Hi Dion,

For it it looks like one of the PDA’s has been changed since the subprog was compiled!

My first step would be to check timestamps on PDAs and subprog.
Finn

3

The 33rd parameter is in error.

HOWEVER, counting to 33 can be tricky. REDEFINES and Group Names do not count.

For example, here is a program:

DEFINE DATA LOCAL
1 #GROUP-A
2 #A1 (A3)
2 #N1 (N5)
2 REDEFINE #N1
3 #A2 (A5)
1 #AA (A3)
1 #AB (A2)
END-DEFINE
*
CALLNAT ‘LINK020’ #GROUP-A #AA #AB
END

and here is the subprogram:

DEFINE DATA PARAMETER
1 #GROUP-A
2 #A1 (A3)
2 #N1 (N5)
2 REDEFINE #N1
3 #A2 (A5)
1 #AA (A3)
1 #AB (A4)
END-DEFINE
*
WRITE ‘HI’
END

The error message point to Parameter 4.
GROUP-A does not count.
#A1 and #N1 count
#A2 does not count
#AA counts
#ab (the error) counts

So, count down 33 “real” variables.

As Finn said, it is probably a PDA that is out of synch.

4

Hi again.

Thanks for the answers.

Programs and PDA has not been changed since april.

We have removed this 3 items from the bufferpool, and now everything is working again. Something must have corrupted the bufferpool.
I don’t anyone has a quick answer to that :smiley:

5

Someone was using an older, or newer, version of one of the three, which was in the buffer pool.
If this is the case, you may see this recurring.

6

Note that PN has only five arguments being passed (lines 0080-0120 of SE–NOAA). Count up the arguments in SE55XRAA, and, if necessary, N3AMACCA and ZXINFOPA. This may give you some clues to where the problem really is; that is, which data area is causing the problem.

7

Got some similar error NAT0937,

As said by Steve, tried searching the parameter where it got error,
Finally found the issue with the View that was defined,

its a compilation problem, got fixed when i recompiled the modules in order.