Ibm SC34-6814-04 Instrukcja Użytkownika Strona 551

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 953
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 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
Przeglądanie stron 550
1 2 ... 546 547 548 549 550 551 552 553 554 555 556 ... 952 953

Komentarze do niniejszej Instrukcji

Brak uwag