The
following code calls the GXL1CTL service to change the feature bits
for the z/OS® XML parser.
For the callable service, see
GXL1CTL (GXL4CTL) — perform a parser control function.
AMODE 64 callers use
GXL4CTL example.
**********************************************************
* Setup parameter list to call GXL1CTL. *
* Then call GXL1CTL. *
**********************************************************
* Call GXL1CTL(PIMA, (00)
* CTL_Option, (04)
* CTL_Data, (08)
* Return_Code, (12)
* Reason_Code) (16)
*
LA R9,SAMPLE_PIMA_PTR
L R9,0(R9)
ST R9,Parser_Parm
SLR R4,R4
LA R10,SAMPLE_CTL_OPTION
ST R10,Parser_Parm+4
LA R10,SAMPLE_CTL_DATA
ST R10,Parser_Parm+8
LA R10,SAMPLE_CTL_RC
ST R10,Parser_Parm+12
LA R10,SAMPLE_CTL_RSN
ST R10,Parser_Parm+16
*********************************************************
LLGT R15,CVTPTR
L R15,CVTCSRT-CVT(R15)
L R15,72(R15)
L R15,28(R15)
LA R1,Parser_Parm
BALR R14,R15
:
********************************************************************
* Description of the SAMPLE Structure:
* ********************************************************************
SAMPLE DSECT Memory storage area
SAMPLE_HEADER DS 0D
SAMPLE_EYE_CATCHER DS CL8 eye-catcher string
SAMPLE_RETCODE DS 1F
SAMPLE_RSNCODE DS 1F
SAMPLE_PIMA_PTR DS 1F
SAMPLE_PIMA_LEN DS 1F
SAMPLE_INIT_FEAT DS 1F
SAMPLE_INIT_RC DS 1F
SAMPLE_INIT_RSN DS 1F
SAMPLE_CTL_OPTION DS 1F
SAMPLE_CTL_DATA DS 1F
SAMPLE_CTL_RC DS 1F
SAMPLE_CTL_RSN DS 1F
SAMPLE_TERM_RC DS 1F
SAMPLE_TERM_RSN DS 1F
SAMPLE_FLAGS1 DS 1F
SAMPLE_FLAGS2 DS 1F
SAMPLE_END DS 0X
********************************************************************
NULL_Value DC 1D’0’
CCSID DS 1F
PARSER_PARM DS 8A