The following trace listing shows the beginning of a debugging session in the dialog.
Depending on the versions of the compiler and AID, the syntax of the AID commands and the AID output may change.
The application is started in the dialog with the START-APPLI command procedure.
The TAC DB4TP1 is called in the user dialog. The TAC is implemented in the C program TA4DB.
The symbolic information on this program is contained in the PLAM library OML.TA4DB.
The DB4TP1 TAC outputs the message received together with general information such as the service start or follow-up TAC in line mode. If the message contains the string "@end", then the service is terminated.
Step1: Load and start the application in the task window
/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-FILE=*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 Please enter start parameters |
.UTM START FILEBASE=DBAPP |
.UTM START TABLIB=NEWV5,ROOTNAME=DBAPPT |
.UTM START TASKS=1,ASYNTASKS=0,STXIT=ON |
.UTM END |
K136 (First) SYSLOG file is :4OSQ:$userid.DBAPP.SYSLOG(*0001) |
K044 Please enter start parameters |
.FHS MAPLIB=MAPLIB=$userid.SYSLIB.UTM.070.EXAMPLE |
.FHS ISTD=RUNP |
.FHS DE=NO |
END |
FC01 FHS Version 08.3B00 ready |
K051 Successful cold start for application DBAPP under V07.0A00/BS2000 (390) /32 Bit |
K156 UTM-UPIC encryption function available: N |
K052 Startup completed - task 6HVK activated for application DBAPP version 0 ;System-Task: N |
Step 2: Press the K2 key in the task window
User dialog window
KDCSIGN TESTUSER |
K008 Sign-on accepted - input please |
DB4TP1 ** message 1 ** |
Step 3: The user signs on to the UTM application (user dialog window)
Step 4: Enter commands
Task window
% 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 |
Step 5: End of dialog step, terminal output in user dialog window and new input
User dialog window
---------------------------------------------------------------------------- |
Service start with TAC = DB4TP1 |
** message 1 ** |
Follow-up TAC= DB4TP1 |
** message 2 * @end ** |
---------------------------------------------------------------------------- |
Step 6: Stop at the breakpoint
Task window
STOPPED AT SRC_REF: 148, SOURCE: TA4DB@, PROC: TA4DB |
/%t 10 |
148 EXT.PROC START , BLOCK START, ASSIGN |
156 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 |
Step 7: End debugging
User dialog window
---------------------------------------------------------------------------- |
End of service with TAC = DB4TP1 |
** message 2 * @end ** |
---------------------------------------------------------------------------- |
KDCSHUT NORMAL |
Task window
K056 Task 6HVK terminated |
K138 SYSLOG file :4OSQ:$userid.DBAPP.SYSLOG(*0001) closed |
K057 Application run terminatedK199 ROOT-Termination initiated with TERM-UNIT: &TRMTYP, reason: &ROOTTRMR |