The following is an example of a user-written coding sequence to create an interface to the RACF® panels. You can also call the interface from a CLIST in a similar fashion.

*Create Variables in the Function Variable Pool*/
Call ISPLINK(VDEFINE,'ICHFUNCT',ICHFUNCT,'CHAR',LENGTH(ICHFUNCT));
Call ISPLINK(VDEFINE,'ICHRESCL',ICHRESCL,'CHAR',LENGTH(ICHRESCL));
Call ISPLINK(VDEFINE,'ICHRESNM',ICHRESNM,'CHAR',LENGTH(ICHRESNM));
/*Copy variables from Function Pool to Shared Variable Pool*/
Call ISPLINK('VPUT','ICHFUNCT');
Call ISPLINK('VPUT','ICHRESCL');
Call ISPLINK('VPUT','ICHRESNM');
/*Call the Panel Driver Interface*/
Call ISPLINK(SELECT,LENGTH(BUFFER),BUFFER);
/*Test return code from the PDI for possible errors */