Figure 1 ・DCL structure CL source member

/************************************************************/
/***  Source: VFYN0100                                    ***/
/***  Date: 11/18/2007                                    ***/
/***  Author: Mike Pavlak                                 ***/
/***  Description: Format for the new API for object      ***/
/***               name validation...                     ***/
/************************************************************/

             /* VFYN0100 Format  */
             DCL        VAR(&VFYN0100) TYPE(*CHAR) LEN(38)
             DCL        VAR(&LENFIXED) TYPE(*INT) STG(*DEFINED) +
                          DEFVAR(&VFYN0100 1)
             DCL        VAR(&CCSID) TYPE(*INT) STG(*DEFINED) +
                          DEFVAR(&VFYN0100 5)
             DCL        VAR(&NAMETYPE) TYPE(*CHAR) STG(*DEFINED) +
                          LEN(10) DEFVAR(&VFYN0100 9)
             DCL        VAR(&MonoCase) TYPE(*CHAR) LEN(1) STG(*DEFINED) +
                          DEFVAR(&VFYN0100 19)
             DCL        VAR(&Reserved) TYPE(*CHAR) LEN(1) STG(*DEFINED) +
                          DEFVAR(&VFYN0100 20)
             DCL        VAR(&OffToName) TYPE(*INT)  STG(*DEFINED) +
                          DEFVAR(&VFYN0100 21)
             DCL        VAR(&LenName) TYPE(*INT)   STG(*DEFINED) +
                          DEFVAR(&VFYN0100 25)
             DCL        VAR(&Name) TYPE(*CHAR) LEN(10) STG(*DEFINED) +
                          DEFVAR(&VFYN0100 29)