Invoking System Tasks from Programs › Invoking DCMT and DCUF Commands from Programs › Examples › DCUF Example

DCUF Example

The following example invokes RHDCUF00 to execute the DCUF SET PRINT CLASS command specified in INREC:

       #LINK PGM='RHDCUF00',PARMS=(INREC,OUTREC)
 .
 .
 .
INREC    DS    0F                   Input to DCUF
INRECLN  DC    Y(L'INRECTXT)           - length
INRECTXT DC    C'SET PRINT CLASS 01'   - command
*
OUTREC   DS    0F                   Output from DCUF
OUTRECLN DC    A(L'OUTRECTX)           - maximum allowed length
OUTRECRC DC    H'0'                    - return code
OUTRECOD DC    H'0'                    - output type
OUTRECTL DC    F'0'                    - total length
OUTRECAL DC    F'0'                    - actual length
OUTRECTX DS    CL132                   - actual output text