Cphelp

Aus SiWiki
Wechseln zu: Navigation, Suche
CPHELP   CSECT
         PRINT NOGEN
R0       EQU   0
R1       EQU   1
R2       EQU   2
R3       EQU   3
R4       EQU   4
R5       EQU   5
R6       EQU   6
R7       EQU   7
R8       EQU   8
R9       EQU   9
R10      EQU   10
R11      EQU   11
R12      EQU   12
R13      EQU   13
R14      EQU   14
R15      EQU   15
*---------------------------------------------------------------------*
         GPARMOD 31
CPHELP   AMODE ANY
CPHELP   RMODE ANY
##BAL    OPSYN ##BAS
##BALR   OPSYN ##BASR
*---------------------------------------------------------------------*
         STM   14,12,12(13)
ANF      BASR  R5,0
         BCTR  R5,0
         BCTR  R5,0
         USING ANF,R5,R6,R7
*        STM   R8,R12,SAVTAB
*        ST    R14,SAV14
         LA    R15,4095
         LA    R6,1(R5,R15)
         LA    R7,1(R6,R15)
         B     BEG
DCAMA    DS    F
DCAMT    DS    CL8
BEG      EQU   *
         L     R15,0(1)
         MVC   DCAMT,0(R15)
         LA    R3,MELDANFA
         LA    R4,MELDENDA
MELCOOP  EQU   *
         CLC   0(8,R3),DCAMT
         BE    MELCOT
         AH    R3,=H'12'
         CR    R3,R4
         BL    MELCOOP
         LA    R3,MELDENDA
MELCOT   EQU   *
         L     R15,8(R3)
         ST    R15,DCAMA
         ST    R15,0(R1)
*        LM    R8,R12,SAVTAB
         LM    14,12,12(13)
         BR    R14
         DS    F
MELDANFA EQU   *
         DC    C'CLOSE'
         DC    XL3'00'
         DC    A(CLOSE)
         DC    C'C'
         DC    XL7'00'
         DC    A(CLOSE)
         DC    C'LOCK'
         DC    XL4'00'
         DC    A(LOCK)
         DC    C'ENDCP'
         DC    XL3'00'
         DC    A(ENDCP)
         DC    C'MENU'
         DC    XL4'00'
         DC    A(MENU)
         DC    C'OPEN'
         DC    XL4'00'
         DC    A(OPEN)
         DC    C'O'
         DC    XL7'00'
         DC    A(OPEN)
         DC    C'WECHSEL'
         DC    XL1'00'
         DC    A(WECHSEL)
         DC    C'CHANGE'
         DC    XL2'00'
         DC    A(WECHSEL)
         DC    C'/HC'
         DC    XL5'00'
         DC    A(HCO)
         DC    C'/FORM'
         DC    XL3'00'
         DC    A(HFORM)
         DC    C'/LL'
         DC    XL5'00'
         DC    A(HCLL)
*         DC    C'RC:0000'
*         DC    X'00'
*         DC    A(M0000)
*         DC    C'RC:0400'
*         DC    X'00'
*         DC    A(M0400)
*         DC    C'RC:0800'
*         DC    X'00'
*         DC    A(M0800)
*         DC    C'RC:0804'
*         DC    X'00'
*         DC    A(M0804)
*         DC    C'RC:0808'
*         DC    X'00'
*         DC    A(M0808)
*         DC    C'RC:080C'
*         DC    X'00'
*         DC    A(M080C)
*         DC    C'RC:0810'
*         DC    X'00'
*         DC    A(M0810)
*         DC    C'RC:0814'
*         DC    X'00'
*         DC    A(M0814)
         DC    XL8'00'
         DC    A(HELPD)
MELDENDA EQU   *
         DC    C'?'
         DC    XL7'00'
         DC    A(M9999)
M9999    DC    Y(M9999E-M9999-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'Hilfe Funktion:'
         DC    X'2798'
         DC    X'2798'
         DC    C'? [CP-Kommando]'
         DC    X'2798'
         DC    X'2798'
         DC    C'Detailinformationen zu den Kommandos werden gegeben.'
*         DC    C'? RC:[4-stelliger Dcam Return-Code]'
          DC    X'2798'
          DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
M9999E   EQU   *
*M0000    DC    Y(M0000E-M0000-2)
*         DC    X'10401B2061404045625400400000412127822784'
*         DC    X'1ED81D7C'
*         DC    C'CP Hilfe'
*         DC    X'1ED81DC8'
*         DC    X'2798'
*         DC    X'2798'
*         DC    C'Dcam Rc:0000 --> '
*         DC    C'Dcam Aufruf erfolgreich beendet'
*         DC    X'2798'
*         DC    X'2798'
*         DC    CL4'CMD:'
*         DC    X'27841ED7'
*M0000E   EQU   *
*M0400    DC    Y(M0400E-M0400-2)
*         DC    X'10401B2061404045625400400000412127822784'
*         DC    X'1ED81D7C'
*         DC    C'CP Hilfe'
*         DC    X'1ED81DC8'
*         DC    X'2798'
*         DC    X'2798'
*         DC    C'Dcam Rc:0400 --> '
*         DC    C'Dcam Aufruf mit Warnung beendet'
*         DC    X'2798'
*         DC    X'2798'
*         DC    CL4'CMD:'
*         DC    X'27841ED7'
*M0400E   EQU   *
*M0800    DC    Y(M0800E-M0800-2)
*         DC    X'10401B2061404045625400400000412127822784'
*         DC    X'1ED81D7C'
*         DC    C'CP Hilfe'
*         DC    X'1ED81DC8'
*         DC    X'2798'
*         DC    X'2798'
*         DC    C'Dcam Rc:0800 --> '
*         DC    C'Dcam Aufruf zurueckgewiesen'
*         DC    X'2798'
*         DC    X'2798'
*         DC    CL4'CMD:'
*         DC    X'27841ED7'
*M0800E   EQU   *
*M0804    DC    Y(M0804E-M0804-2)
*         DC    X'10401B2061404045625400400000412127822784'
*         DC    X'1ED81D7C'
*         DC    C'CP Hilfe'
*         DC    X'1ED81DC8'
*         DC    X'2798'
*         DC    X'2798'
*         DC    C'Dcam Rc:0804 --> '
*         DC    C'AID ist ungueltig'
*         DC    X'2798'
*         DC    X'2798'
*         DC    CL4'CMD:'
*         DC    X'27841ED7'
*M0804E   EQU   *
*M0808    DC    Y(M0808E-M0808-2)
*         DC    X'10401B2061404045625400400000412127822784'
*         DC    X'1ED81D7C'
*         DC    C'CP Hilfe'
*         DC    X'1ED81DC8'
*         DC    X'2798'
*         DC    X'2798'
*         DC    C'Dcam Rc:0808 --> '
*         DC    C'Dcam-Anwendung bereits eroeffnet'
*         DC    X'2798'
*         DC    X'2798'
*         DC    CL4'CMD:'
*         DC    X'27841ED7'
*M0808E   EQU   *
*M080C    DC    Y(M080CE-M080C-2)
*         DC    X'10401B2061404045625400400000412127822784'
*         DC    X'1ED81D7C'
*         DC    C'CP Hilfe'
*         DC    X'1ED81DC8'
*         DC    X'2798'
*         DC    X'2798'
*         DC    C'Dcam Rc:080C --> '
*         DC    C'Dcam-Anwendung bereits eroeffnet / einfach verwendbar'
*         DC    X'2798'
*         DC    X'2798'
*         DC    CL4'CMD:'
*         DC    X'27841ED7'
*M080CE   EQU   *
*M0810    DC    Y(M0810E-M0810-2)
*         DC    X'10401B2061404045625400400000412127822784'
*         DC    X'1ED81D7C'
*         DC    C'CP Hilfe'
*         DC    X'1ED81DC8'
*         DC    X'2798'
*         DC    X'2798'
*         DC    C'Dcam Rc:0810 --> '
*         DC    C'Dcam-Anwendung durch einen andere Prozess eroeffnet'
*         DC    X'2798'
*         DC    X'2798'
*         DC    CL4'CMD:'
*         DC    X'27841ED7'
*M0810E   EQU   *
*M0814    DC    Y(M0814E-M0814-2)
*         DC    X'10401B2061404045625400400000412127822784'
*         DC    X'1ED81D7C'
*         DC    C'CP Hilfe'
*         DC    X'1ED81DC8'
*         DC    X'2798'
*         DC    X'2798'
*         DC    C'Dcam Rc:0814 --> '
*         DC    C'Dcam-Anwendung bereits eroeffnet (Verify=Primary)'
*         DC    X'2798'
*         DC    X'2798'
*         DC    CL4'CMD:'
*         DC    X'27841ED7'
*M0814E   EQU   *
HELPD    DC    Y(HELPDE-HELPD-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    X'2798'
         DC    C'Allgemeine Netz- und Steuerkommandos:'
         DC    X'2798'
         DC    C'? [kdo]          --> Hilfe Funktion ( kdo = CP Komman'
         DC    C'do )'
         DC    X'2798'
         DC    C'O[PEN]           --> baut Verbindung zu einem Partner'
         DC    C' auf'
         DC    X'2798'
         DC    C'C[LOSE]          --> baut Verbindung zum Partner ab'
         DC    X'2798'
         DC    C'LOCK             --> sperrt das physikalische Termina'
         DC    C'l gegen Eingaben'
         DC    X'2798'
         DC    C'WECHSEL  (P17  ) --> wechselt zum naechsten PAC '
         DC    C'(ESC/SHIFT/O)'
         DC    X'2798'
         DC    C'MENU     (P16  ) --> wechselt ins CP Menu '
         DC    C'(ESC/SHIFT/N)'
         DC    X'2798'
         DC    C'K9-FKT   (P18  ) --> Hardcopy (ESC/SHIFT/?)'
         DC    X'2798'
         DC    C'ENDCP            --> CP beenden'
         DC    X'2798'
         DC    X'2798'
         DC    C'Administration fuer den Benutzer:'
         DC    X'2798'
         DC    C'/HC              --> weist einen anderen Drucker fuer'
         DC    C' Hardcopy-Ausgabe zu'
         DC    X'2798'
         DC    C'/FORM            --> weist anderes Formular fuer den '
         DC    C'Hardcopy-Drucker zu'
         DC    X'2798'
         DC    C'/LL              --> aendert die Zeichen/Zeile fuer '
         DC    C'den Hardcopy-Drucker'
         DC    X'2798'
         DC    C'/?               --> Info ueber Station und Prozessor'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
HELPDE   EQU   *
OPEN     DC    Y(OPENE-OPEN-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'OPEN Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C' O [Partner/$DIALOG]'
         DC    X'2798'
         DC    C'   ,[Rechner/HOST]'
         DC    X'2798'
         DC    C'   ,[*](Refresh (K3/KDCLAST) ausgeschaltet)'
         DC    X'2798'
         DC    C'   ,[T=virtueller Terminalname]'
         DC    X'2798'
         DC    C'   ,[PW=Passwort des Partners]'
         DC    X'2798'
         DC    C'   ,[PAC=Partneradresscode(4 Stellen)]'
         DC    X'2798'
         DC    C'   ,[MSG=Verbindungsnachricht(max 16 Stellen)]'
         DC    X'2798'
         DC    X'2798'
         DC    C'Eroeffnet virtuelles Terminal und baut Verbindung'
         DC    C' zum Partner auf.'
         DC    X'2798'
         DC    C'Verbindungsnachricht und Kennwort'
         DC    C' des Partners koennen angegeben werden.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
OPENE    EQU   *
CLOSE    DC    Y(CLOSEE-CLOSE-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'CLOSE Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C' C [Partnername/0001]'
         DC    X'2798'
         DC    C'   ,[KILL](deklarierter Partner wird geloescht)'
         DC    X'2798'
         DC    X'2798'
         DC    C'Schliesst virtuelles Terminal und baut Verbindung'
         DC    C' zum Partner ab.'
         DC    X'2798'
         DC    C'Ein vordefinierter Partner geht in den Zustand'
         DC    C' "DECLARED" ueber.'
         DC    X'2798'
         DC    C'Mit ,KILL kann ein vordefinierter'
         DC    C' Partner geloescht werden.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
CLOSEE   EQU   *
LOCK     DC    Y(LOCKE-LOCK-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'LOCK Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C' LOCK [Kennwort (max 8 Stellen)]'
         DC    X'2798'
         DC    X'2798'
         DC    C'Physikalisches Terminal wird fuer alle Eingaben'
         DC    C' gesperrt. Erst durch Eingabe des Kennwortes wird'
         DC    C' das Terminal freigegeben.'
         DC    X'2798'
         DC    C'Bei LOCK ohne Operand wird das Standard Passwort aus'
         DC    C' der Terminal-Startdatei eingesetzt.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
LOCKE    EQU   *
WECHSEL  DC    Y(WECHSELE-WECHSEL-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'WECHSEL Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C' K7 [ESC/SHIFT/O] P17'
         DC    X'2798'
         DC    X'2798'
         DC    C'Wechselt auf den naechsten Partner. Sofern'
         DC    C' der Partner im Zustand "DECLARED"     ist, wird'
         DC    C' implizit ein OPEN Kommando abgesetzt.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
WECHSELE EQU   *
MENU     DC    Y(MENUE-MENU-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'MENU Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C' K8 [ESC/SHIFT/N] P16'
         DC    X'2798'
         DC    X'2798'
         DC    C'Wechselt auf das CP Menu. Alle Partner werden '
         DC    C'ausgegeben.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
MENUE    EQU   *
HCO      DC    Y(HCOE-HCO-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'HARDCOPY Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C' /HC ?'
         DC    X'2798'
         DC    X'2798'
         DC    C'Der aktuell zugewiesene Drucker fuer den Hardcopy-'
         DC    C'Ausdruck wird angezeigt.'
         DC    X'2798'
         DC    X'2798'
         DC    X'2798'
         DC    C' /HC device-name (max. 8 Stellen)'
         DC    X'2798'
         DC    X'2798'
         DC    C'device-name = RSO-Name des Druckers auf den die '
         DC    C'Hardcopy-Ausgabe erfolgen soll.'
         DC    X'2798'
         DC    C'Standard nach dem Einstieg ins CP ist der Name, wie '
         DC    C'er in der Terminal-Datei '
         DC    X'2798'
         DC    C'(vom Administarator) vergeben wird.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
HCOE     EQU   *
HFORM    DC    Y(HFORME-HFORM-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'FORMULAR Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C' /FORM ?'
         DC    X'2798'
         DC    X'2798'
         DC    C'Das aktuell zugewiesene Formular fuer den Hardcopy-'
         DC    C'Drucker wird angezeigt.'
         DC    X'2798'
         DC    X'2798'
         DC    X'2798'
         DC    C' /FORM formularname (max. 8 Stellen)'
         DC    X'2798'
         DC    X'2798'
         DC    C'formularname = Name des Druckerformulars fuer den '
         DC    C'Hardcopy-Drucker.'
         DC    X'2798'
         DC    C'Standard nach dem Einstieg ins CP ist der Name, wie '
         DC    C'er in der Terminal-Datei '
         DC    X'2798'
         DC    C'(vom Administarator) vergeben wird. Ist dieser Eintr'
         DC    C'ag nicht vorhanden,'
         DC    X'2798'
         DC    C'wird vom CP FORM=STD vergeben.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
HFORME   EQU   *
HCLL     DC    Y(HCLLE-HCLL-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'LINELEN Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C' /LL length-typ'
         DC    X'2798'
         DC    X'2798'
         DC    C'length-typ = ''P'' - auf dem Hardcopy werden 80 '
         DC    C'Zeichen/Zeile gedruckt'
         DC    X'2798'
         DC    C'length-typ = ''N'' - auf dem Hardcopy werden 82 '
         DC    C'Zeichen/Zeile gedruckt'
         DC    X'2798'
         DC    C'Standard nach dem Einstieg ins CP ist die Laenge wie '
         DC    C'sie in der Terminal-Datei '
         DC    X'2798'
         DC    C'(vom Administarator) vergeben wird. Ist dieser Eintr'
         DC    C'ag nicht vorhanden,'
         DC    X'2798'
         DC    C'wird vom CP 82 Zeichen/Zeile angenommen.'
         DC    X'2798'
         DC    C'80 Zeichen/Zeile werden nur bei Druckern benoeti'
         DC    C'gt, die hardwaremaessig'
         DC    X'2798'
         DC    C'(oder ueber Emulation) nur 80 Zeichen drucken.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
HCLLE    EQU   *
ENDCP    DC    Y(ENDCPE-ENDCP-2)
         DC    X'10401B2061404045625400400000412127822784'
         DC    X'1ED81D7C'
         DC    C'CP Hilfe'
         DC    X'1ED81DC8'
         DC    X'2798'
         DC    X'2798'
         DC    C'ENDCP Kommando:'
         DC    X'2798'
         DC    X'2798'
         DC    C'ENDCP [Verlassen CP01]'
         DC    X'2798'
         DC    X'2798'
         DC    C'Verlaesst CP. Fuer alle aktiven Partner wird implizit'
         DC    C' ein CLOSE Kommando durchgefuehrt.'
         DC    X'2798'
         DC    X'2798'
         DC    CL4'CMD:'
         DC    X'27841ED7'
ENDCPE   EQU   *
         END