Ibm SC34-6814-04 Manuale Utente Pagina 551

  • Scaricare
  • Aggiungi ai miei manuali
  • Stampa
  • Pagina
    / 953
  • Indice
  • SEGNALIBRI
  • Valutato. / 5. Basato su recensioni clienti
Vedere la pagina 550
* 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 39. Example of how to customize the DFHZATDX sample program (part 1)
Chapter 10. Writing a program to control autoinstall of terminals 529
Vedere la pagina 550
1 2 ... 546 547 548 549 550 551 552 553 554 555 556 ... 952 953

Commenti su questo manuale

Nessun commento