High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

3- 5
IF fieldname NE fieldname THEN
FAIL "$PFK_3 = replacement string"
This statement will never execute because the field will never be un-
equal to itself. "PFK_3" is the entry key that the HPDREAD intrinsic
matches on if the function key f3 terminates the read. All text to the
right of the "equals" sign up to 32 characters is copied to
lastitemname ,
to be returned to the application.
Examples
COBOL:
01 returnpak.
05 returnstatus pic s9(8) comp.
05 sublayerstatus pic s9(8) comp.
05 returnmsglen pic s9(8) comp.
05 returnmsg pic x(256).
05 lastitemtype pic s9(8) comp.
05 lastitemnum pic s9(8) comp.
05 lastitemname pic x(32).
05 numdataerrs pic s9(8) comp.
05 numchngflds pic s9(8) comp.
FORTRAN:
INTEGER*4 RETURNPAK(79)
INTEGER*4 RETURNSTATUS, SUBLAYERSTATUS,
RETURNMSGLEN
CHARACTER*252 RETURNMSG
CHARACTER*4 MSGTAIL
INTEGER*4 LASTITEMTYPE, LASTITEMNUM
CHARACTER*32 LASTITEMNAME
INTEGER*4 NUMDATAERRS, NUMCHNGFLDS
EQUIVALENCE (RETURNPAK(1), RETURNSTATUS),
+ (RETURNPAK(2), SUBLAYERSTATUS),
+ (RETURNPAK(3), RETURNMSGLEN),
+ (RETURNPAK(4), RETURNMSG),
+ (RETURNPAK(67), MSGTAIL),
+ (RETURNPAK(68), LASTITEMTYPE),
+ (RETURNPAK(69), LASTITEMNUM),
+ (RETURNPAK(70), LASTITEMNAME),
+ (RETURNPAK(78), NUMDATAERRS),
+ (RETURNPAK(79) NUMCHNGFLDS)
Pascal:
type
returnpak_rec = record
returnstatus : integer;
sublayerstatus : integer;
returnmsglen : integer;
returnmsg : packed array [1..256] of char;
lastitemtype : integer;
lastitemnum : integer;
lastitemname : packed array [1..32] of char;
numdataerrs : integer;
numchngflds : integer;
end;
var
returnpak : returnpak_rec;
Summary Table
Table 3-1 lists each intrinsic and provides a brief description of its
function.