Example Decompiled
Source Code:
/PAGE1
... For space reasons, the original image
... has been omitted but it goes here.
/PAGE2 HELP
... For space reasons, the original help
... screen has been omitted but it goes here.
/PAGE3
... For space reasons, the original pop up
... question goes here but it has been omitted.
/*
// Source code decompiled by:
// DataFlex Decompiler Version 2.3-R
// (c)1989-2008 The Database Managers, Inc.
// INDICATORS:
INDICATOR IND13
INDICATOR IND14
INDICATOR IND15
// STRINGS:
STRING VS2 80
PAGE SET PAGE2 AT 1 0
PAGE SET PAGE3 AT 13 0
OPEN FLEXERRS
CL6: REPEAT
CLEAR FLEXERRS
CLEARFORM PAGE1.1 THROUGH PAGE1.3
BLANKFORM PAGE1.4 THROUGH PAGE1.6
INDICATE IND15 TRUE
ENTERGROUP
ENTRY FLEXERRS.RECNUM PAGE1.1
{AUTOFIND}
ENTRY FLEXERRS.ERROR_DESCR PAGE1.2
ENTRY FLEXERRS.NOTE PAGE1.3
INDICATE IND15 FALSE
INDICATE IND13 STATUS FLEXERRS
INDICATE IND14 TRUE
[~ IND13] BEGIN
MOVE "This error does not exist. Do you wish
to create a new one (Y,N):" TO PAGE1.4
MOVE "Y" TO PAGE1.5
ACCEPT PAGE1.5 {CAPSLOCK, CHECK="YN "}
INDICATE IND14 AS PAGE1.5 EQ "Y"
END
REREAD
ENDGROUP
[IND14] SAVE FLEXERRS
UNLOCK
[~ IND13 IND14] BEGIN
MOVE "Your new error message has been assigned
number: " TO VS2
APPEND VS2 FLEXERRS.RECNUM
MOVE VS2 TO PAGE1.4
BLANKFORM PAGE1.5
MOVE "Please press <RETURN> to continue"
TO PAGE1.6
ACCEPT PAGE1.5
END
LOOP
KEYPROC KEY.HELP
HELP
ENTAGAIN
RETURN
KEYPROC KEY.ESCAPE
ABORT
KEYPROC KEY.CLEAR
[IND15] RETURN CL6
ENTAGAIN
RETURN
KEYPROC KEY.DELETE
[IND15] BEGIN
IF NOT STATUS FLEXERRS ERROR 71
[~ ERR] BEGIN
REREAD
DELETE FLEXERRS
UNLOCK
END
RETURN CL6
END
ENTAGAIN
RETURN
KEYPROC KEY.USER2
ACCEPT PAGE3.1
CLEARSCREEN
IF PAGE3.1 EQ "" SHOWLN 'TYPE "EXIT"
TO RETURN TO DATAFLEX'
RUNPROGRAM WAIT PAGE3.1
ENTAGAIN
RETURN
See Original Source Code
More Information:
|
