Examples

The following examples are not coding samples. Rather, they demonstrate how to construct the input parameter list for a number of requests.

Example 1: Extract the contents of the IBMUSER profile. Request only the base segment, and request that authorization be bypassed (caller is in supervisor state).

Function code = ADMN_XTR_USER

HEADER  DS 0H
        DC CL20''         Unused (note class name optional)
        DC AL4(7)         Length of user ID
        DC CL12''         Unused
        DC XL4'C0000000'  Flag word - BASE only+skip auth
        DC CL20''         More unused
NAME    DC CL7'IBMUSER'   User ID name

Example 2: Start an iterative extract by using extract-next starting with a profile name of blank.

Function code = ADMN_XTR_NEXT_USER

HEADER  DS 0H
        DC CL20''         Unused (note class name optional)
        DC AL4(1)         Length of "user ID"
        DC CL12''         Unused
        DC XL4'00000000'  Flag word - none specified
        DC CL20''         More unused
NAME    DC CL1' '         "User ID" name of 1 blank

Example 3: Extract group profile FINANCE. Take the defaults of returning all existing segments and performing LISTGRP authorization.

Function code = ADMN_XTR_GROUP

HEADER  DS 0H
        DC CL20''         Unused (note class name optional)
        DC AL4(7)         Length of group name
        DC CL12''         Unused
        DC XL4'00000000'  Flag word - none specified
        DC CL20''         More unused
NAME    DC CL7'FINANCE'   Group name

Example 4: Extract the connection information for user BRUSCHI in group PATRIOTS.

Function code = ADMN_XTR_CONNECT

HEADER  DS 0H
        DC CL20''         Unused (note class name optional)
        DC AL4(16)        Length of connect name
        DC CL12''         Unused
        DC XL4'00000000'  Flag word - none specified
        DC CL20''         More unused
NAME    DC CL16'BRUSCHI.PATRIOTS'  Connect name

Example 5: Extract the information for the IRR.RADMIN.RLIST resource in the FACILITY class. Request that the covering generic profile be returned if a discrete does not exist.

Function code = ADMN_XTR_RESOURCE

HEADER DS 0H 
       DC CL12''                 Unused 
       DC CL8'FACILITY'          Class name - required
       DC AL4(16)                Length of resource name 
       DC CL12''                 Unused 
       DC XL4'10000000'          Flags - return matching profile 
       DC CL20''                 More unused 
NAME   DC CL16'IRR.RADMIN.RLIST' Resource name