Cphelp
Aus Si:Wiki von Siegrist SystemLösungen - Informatik und Rezepte
Version vom 18. Januar 2016, 22:40 Uhr von Sigi (Diskussion | Beiträge) (Die Seite wurde neu angelegt: «<source lang="asm"> CPHELP CSECT PRINT NOGEN R0 EQU 0 R1 EQU 1 R2 EQU 2 R3 EQU 3 R4 EQU 4 R5 EQU 5 R6…»)
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
