2 replies to this topic

[nurquhar]

Using PRO-IV v4 on AIX

I get this message when regening a simple Global Screen (as below).

200 - INTERNAL KERNEL ERROR - REGEN FUNCTION

The problem seems to be caused in some way by adding a Parameter to the Global Function. i.e. With a Parameter of "Both,$FLD,A6" I get the Kernal Error. If I delete the parameter the function will regen and run. I does'nt seem to mater what type of parameter I add, be it In/Out or Both or Alpha or Numeric.

McDonnell Information Systems
TRM: PTS_26 F U N C T I O N D O C U M E N T A T I O N OPR: NA

FUNCTION NAME: gs 'SCREEN' Global Screen


FUNCTION DEFINITION
REV#: 4.0000
FUNCTION NAME: gs TITLE: Global Screen
TYPE: G SPECS CHG ON: 02/03/10 RESET ON: 02/03/10
EXIT LINK: ERROR LINK: 10:55:38
LOGIC IN: LOGIC OUT: NO CMD CALL:
ANALYST: SIZES: 74 PSB:
ENTRY DATE: 02/03/10 BY: NAU

MENU TYPE:
ICON LABEL:
ICON NAME:
SUPPRESS LINES 1 & 2 :
MENU NAME 1 : LEGEND:
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :



PRINTING FORMAT
SEQ# ------------------------ D E S C R I P T I O N ----------------------


FUNCTION NAME: gs 'SCREEN' Global Screen


SCREEN IMAGE

SCREEN FORMAT ID:


1 2 3 4 5 6 7
1234567890123456789012345678901234567890123456789012345678901234567890123456
----------------------------------------------------------------------------
01:
02: 02/03/10 200/NAU/PTS
03:
04:
05:
06:
07:
08:
09:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
----------------------------------------------------------------------------
1234567890123456789012345678901234567890123456789012345678901234567890123456
1 2 3 4 5 6 7


PRINTING FIELD SPECS

SCREEN FIELD DEFINITION

-------------------------------------------------------------------------------
A FIL LGC SPECIAL GEN LGC M N D A O T SEC LK
FLD VAR LN B COL CDE DISPLAY-CODE LEN BEF CHECK CHK AFT I C O R V B L C SF
--- --- -- - --- --- ------------ ---- --- -------- --- --- - - - - - - - - --
001 $FLD
CHARACTERISTICS 1 1 6

SCREEN CHARACTERISTICS DEFINITION

---------------------------LOGICAL SCREEN INFORMATION--------------------------
SCREEN# : 01 DEF LOGIC : EXIT LOGIC : ONE TIME :
FORMAT ID : CLEAR CRT : LS MODE(S) : C DEF MODE : C
START FLD# : 1 END FIELD# : 1 LAST RD FLD:
MODE LINE : LNE# PRMPT :
SUPP WIND: ENT LGC: EOD-CANLGC: SUPP AYS?:
LKUP DEL: LS UPDATE: EXP/CONT DEF: EXP/CONT SUPP:
ITER COUNT:

LS PLACEMENT- STRT ROW: STRT COL: ROWS: COLS:
P A G I N G: STRT ROW: STRT COL: ROWS: COLS:
#LNS/RCD: #COL/RCD: PG ARRAY: # ELMNTS:
CONTRACTED - END FLD : #CTD LNS:
S O R T : SSEL LGC: SSEL EFL: VAR1:
VAR2: VAR3:
VAR4: VAR5:

PRINTING ERROR MESSAGES

GLOBAL FUNCTION INTERFACE PARAMETERS

SEQ PARM TYPE PARAMETER VARIABLE NAME VAR TYPE LEN ARRAY SIZE
--- --------- -------------------------------- -------- --- ----------
001 B $FLD A 6

E N D O F D O C U M E N T A T I O N FOR gs

[nurquhar]

Bizarly, although being long in the tooth with PRO-IV I am not that suprised.

The answer is to make the function REGEN you have to have atleast one logic in the function somewhere, mine had no logic. A logic with one blank line called from any logic point seems to do be enough to do it

[Rory]

There's just no logic to this ....