Das folgende Ablaufprotokoll zeigt den Beginn eines Tests im Dialog.
Abhängig von der Compiler- und AID-Version können sich die Syntax der AID-Kommandos und die AID-Ausgaben ändern.
Mit der Kommando-Prozedur START-APPLI wird die Anwendung im Dialog gestartet.
Im Benutzerdialog wird der TAC DB4TP1 aufgerufen. Der TAC ist in dem C-Programm TA4DB realisiert.
Die symbolische Information zu diesem Programm ist in der PLAM-Bibliothek OML.TA4DB enthalten.
Der TAC DB4TP1 gibt die empfangene Nachricht zusammen mit allgemeinen Informationen wie z.B. Vorgangsstart oder Folge-TAC im Line-Mode aus. Enthält die Nachricht den String „@end“, dann wird der Vorgang beendet.
Schritt 1: Laden und Starten der Anwendung im Taskfenster
/CALL-PROC NAME=START-APPLI,LOGGING=*YES |
1 1 /SET-PROCEDURE-OPTIONS IMPLICIT-DECLARATION=*NO,- |
/DATA-ESCAPE-CHAR=*STD,JV-REPLACEMENT=*AFTER-BUILTIN-FUNCTION |
7 1 /WRITE-TEXT TEXT='** Procedure starts openUTM - application DBAPP **' |
** Procedure starts openUTM - application DBAPP ** |
9 1 /ASSIGN-SYSDTA TO=*SYSCMD |
11 1 /SET-FILE-LINK FILE=DBAPP.SYSLOG(+1),LINK=SYSLOG,SHARED-UPDATE=*YES |
14 1 /RELEASE-SUBSYSTEM-SPACE |
% ESM0254 COMMAND 'RELEASE-SUBSYSTEM-SPACE' COMPLETELY PROCESSED |
16 1 /LOAD-EXECUTABLE-PROGRAM - / FROM-FILE=*LIB-ELEM(LIB= plam-lib ,ELEM= start-llm ) |
% BLS0523 ELEMENT 'DBAPPT', VERSION '' FROM LIBRARY |
':4OSQ:$ userid .LIB.DBAPP.TD' IN PROCESSING |
% BLS0524 LLM 'DBAPPT', VERSION '' OF '2019-09-11:13:21:55' LOADED |
22 1 /%R |
K044 Bitte Startparameter eingeben |
.UTM START FILEBASE=DBAPP |
.UTM START TABLIB=NEWV5,ROOTNAME=DBAPPT |
.UTM START TASKS=1,ASYNTASKS=0,STXIT=ON |
.UTM END |
K136 (Erste) SYSLOG-Datei ist :4OSQ:$ userid .DBAPP.SYSLOG(*0001) |
K044 Bitte Startparameter eingeben |
|
.FHS ISTD=RUNP |
.FHS DE=NO |
END |
FC01 FHS Version 08.3B00 ready |
|
K156 UTM-UPIC Verschluesselungskomponente verfuegbar: N |
K052 Start beendet - Task 6HVK fuer Anwendung DBAPP aktiviert; System-Task: N |
Schritt 2: K2-Taste drücken im Taskfenster
Benutzerdialog-Fenster
KDCSIGN TESTUSER |
|
|
Schritt 3: Benutzer meldet sich bei der UTM-Anwendung an (Benutzerdialog-Fenster)
Schritt 4: Kommandos eingeben
Taskfenster
% CMD0170 DO YOU WANT TO INSERT COMMANDS? REPLY (Y=YES; N=NO)? |
Y |
% SSM2014 TASK IN ESCAPE MODE AT LEVEL NUMBER '1' |
/%SYMLIB OML.TA4DB |
/%AID LOW |
/%INSERT S=N'TA4DB.C'.TA4DB |
%R |
STOPPED AT SRC_REF: 148, SOURCE: TA4DB@, PROC: TA4DB |
%R |
Schritt 5: Ende des Dialogschritts, Ausgabe im Benutzerdialog-Fenster und neue Eingabe
Benutzerdialog-Fenster
---------------------------------------------------------------------------- |
Vorgangsstart mit TAC = DB4TP1 |
** message 1 ** |
Folge-TAC = DB4TP1 |
** message 2 * @end ** |
---------------------------------------------------------------------------- |
Schritt 6: Stopp beim Haltepunkt
Taskfenster
STOPPED AT SRC_REF: 148, SOURCE: TA4DB@, PROC: TA4DB |
%t 10 |
148 EXT.PROC START , BLOCK START, ASSIGN |
|
STOPPED AT SRC_REF: 170 , SOURCE: TA4DB@ , PROC: TA4DB , END OF TRACE |
%d ca->ca_head.kcpr_tac |
ca_area.ca_head.kcpr_tac( 0: 7) |
( 0) |D| ( 1) |B| ( 2) |4| ( 3) |T| ( 4) |P| ( 5) |1| ( 6) | | ( 7) | |
%d ca->ca_head.kcpr_tac %xl |
CURRENT PC: 0106E396 CSECT: TA4DB@ **************************************** |
V'0101B3E0' = ca_area.ca_head.kcpr_tac + #'00000000' |
0101B3E0 (00000000) C4C2F4E3 D7F14040 DB4TP1 |
%R |
Schritt 7: Testende
Benutzerdialog-Fenster
---------------------------------------------------------------------------- |
Vorgangsende mit TAC = DB4TP1 |
** message 2 * @end ** |
---------------------------------------------------------------------------- |
KDCSHUT NORMAL |
Taskfenster
K056 Die Task 6HVK wurde beendet |
K138 SYSLOG-Datei :4OSQ:$userid.DBAPP.SYSLOG(*0001) geschlossen |
K057 Der Anwendungslauf wurde beendet |
K199 ROOT-Beendigung eingeleitet mit TERM-UNIT: STEP, Ursache: 40 |