The following examples show how required and optional parameters appear in sample
programs. There is also a sample job stream for executing the program.
Required Parameters and Calling Sequences
The following example shows how
the required parameters and calling sequences appear in a sample Assembler program:
******************************************************************
* THE DATA DEFINITIONS ARE AS FOLLOWS: *
******************************************************************
CMDLEN DS H LENGTH OF COMMAND STRING
CMD DS CL4096 COMMAND STRING
UICB@ DS A POINTER TO UICB
OUTSPECS DC C'YYSLYNN' OUTPUT SPECIFICATIONS
******************************************************************
* *
* THE DGADCHLA INVOCATION WOULD BE: *
* *
******************************************************************
CALL DGADCHLA,(CMDLEN,UICB@,OUTSPECS),VL
|
The following example shows how the required parameters and calling sequences appear in a
sample PL/I program:
******************************************************************
* THE DATA DECLARATIONS ARE AS FOLLOWS: *
******************************************************************
DECLARE
CMD_PARM FIXED BINARY (31) BASED (R),
UICB_PARM FIXED BINARY (31) INITI (0'B'),
OUTSPEC_PARM CHAR (7) INIT ('YYSLYNN'),
CMD CHAR (4096) VARYING,
R POINTER;
******************************************************************
* *
* THE DGADCHLA INVOCATION WOULD BE: *
* *
******************************************************************
R=ADDR(CMD) ;
CALL DGADCHLA(CMD_PARM, UICB_PARM, OUTSPEC_PARM);
|
Optional Parameters
The following example shows how the optional
parameters look in a sample Assembler program:
*********************************************************************
** THE PARAMETERS WOULD BE DEFINED AS FOLLOWS: **
*********************************************************************
CMDLEN DS H
CMD DS CL4096
UICB@ DS A
OUTSPECS DC C'YYSLYYY'
EXTSTRLN DC H'32'
EXTSTR DC C‘UITMPDDN UIESF UIPROC# UIMSGID'
EXTAREA DS OCL24 /*OUTPUT FROM THE UICB EXTRACT */
EXTMPDDN DS CL8 /*VALUE OF UITMPDDN */
EXESF DS F /*VALUE OF UIRTNCD */
EXPROC# DS XL4 /*VALUE OF UIPROC# */
EXMSGID DS CL8 /*VALUE OF UIMSGID */
EXTRC DS F
EXTMSG DS CL8
INVALKEY DS CL8
**********************************************************************
** NOTE THAT THE EXTRACT STRING ITSELF IS 30 BYTES LONG, *
** BUT THE DUMP OF ITS EXTRACT WILL USE 31 BYTES. *
** *
** INSIDE THE MAIN BODY OF THE PROGRAM, THE CALL TO *
** DGADCHLA WOULD LOOK LIKE: *
** *
**********************************************************************
CALL DGADCHLA,(CMDLEN,UICB@,OUTSPECS,EXTSTRLN,EXTAREA, *
EXTRC,EXTMSG,INVALKEY),VL
|