DGADCHLA Examples

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