Customizing the sample program

Here are three pieces of code that customize the sample program.

Assembler language

Figure 31, in assembler language, limits logon to netnames L77Aand L77B. The

model names utilized are known in advance. Alogon request from any other

terminal, or a request for a model which cannot be found, is rejected.

* REGISTER CONVENTIONS = *
* R0 used by DFHEICAL expansion *
* R1 -------"-------"------"---- *
* R2 Base for Input parameters *
* R3 Base for code addressability *
* R4 Base for model name list *
* R5 Base for output parameter list *
* R6 Work register *
* R7 -----"------- *
* R8 -----"------- *
* R9 free *
* R10 Internal subroutine linkage return *
* R11 Base for EIB *
* R12 free *
* R13 Base for dynamic storage *
* R14 used by DFHEICAL expansion *
* R15 -------"-------"------"---- *
*
* SELECT MODEL
*
LH R6,TABLEN Number of valid netnames
LA R7,TABLE Address the table
*
LOOP1 CLC NETNAME(4),0(R7) Is this netname in table?
BE VALIDT
*
LA R7,16(R7) Next table entry
BCT R6,LOOP1
*
* Now we know its not a valid netname
* simply return and the logon is rejected
*
B RETURN
*

Figure 31. Example of how to customize the DFHZATDXsample program (Part 1 of 2)

sample autoinstall programs
Chapter10. Writing a program to control autoinstall of terminals 499