Standardize INFDS and Program Status Data Structure with reserved words and constants

Currently all information in Program Status Data Structure and File Information Data structure is accessd by position in the data structure. The naming is done in the program. Individual programmers use various naming conventions or no convention. When one programmer reads the code of another programmer, he nees to go back and forth in the source to make sure that JOBNNAM is really Job Name of the Program Status Data Structure position 244-253. Some positions were given a reserved word, like *STATUS, but they are not usable in the program, and need to be renamed.

With the introduction of Qualified Names, it is possibe to have system standard names, qualified.

In order to make sure it will not contradict with any existing code in the programs , the data structure names will start with an Asteric (*), like must reserved names in RPG. The File Informtion Data Structure will be qualified with the file name.

Example:

*PSDS.JOB_NAM = Job name
*PSDS.PGM_STATUS = Program status.

The different status codes wil have reserved RPG meaningful constants names with an asteric(*) in the begining:

00000 = *STATUS_OK
00001 = *CALLED_PGM_RTNLR
00102 = *STATUS_DIVZERO
00121 = *STATUS_ARRAY_INDEX

As for INFDS - File Information Data Structure:

*INFDS.MYDSPF.CURSOR = Cursor Location (position 370-371 in INFDS of Display Files)
*INFDS.MYDSPF.Function_Key_Pressed = Last Function Key Pressed. (position 369-369 in INFDS of Display Files).

And the function keys itself, no need to copy from somewhere the hex values, Just have RPG Reserved Constants:
*F01 = X'31'
*F02 = X'32'
*HLP = X'F3'

More on Function Keys:
http://www.mcpressonline.com/programming/rpg/retrieve-the-function-key-used-on-a-display-file

The programs will become so much more standardized:

If *PSDS.PGM_STATUS = *STATUS_OK;
if *INFDS.MYDSPF.Function_Key_Pressed = *F02;

Every Programmer will be able to read this code, without searching in the program and in its copy statements to make sure what is the meaning.

Currently there are so many standards in naming. If IBM names it, it will become de-facto standard.

Here are 2 standards of function keys from 2 great programmers, both were published:
http://www.mcpressonline.com/programming/rpg/retrieve-the-function-key-used-on-a-display-file
https://archive.midrange.com/rpg400-l/200509/msg00005.html