No desenvolvimento em Natural/Adabas, as variáveis de sistema desempenham um papel essencial no controle do ambiente de execução, no registro de informações internas do programa e no suporte a rotinas operacionais. Diferente das variáveis declaradas pelo programador, as variáveis de sistema são fornecidas pelo próprio Natural e já vêm preenchidas automaticamente, permitindo ao desenvolvedor acessar dados do usuário, do programa, da sessão, do terminal, do banco de dados e do ambiente de execução. Essas variáveis são amplamente utilizadas em rotinas de auditoria, logs, mensagens de erro, validações funcionais e monitoramento de execução. Entre elas, encontramos variáveis relacionadas ao usuário, como USER, USER-NAME e GROUP, que ajudam a identificar quem está executando o programa; variáveis de contexto do sistema, como LIBRARY-ID, PROGRAM e LEVEL; e variáveis de operação, como CPU-TIME, COUNTER, DEVICE e HARDCOPY, que permitem acompanhar aspectos técnicos da sessão.
Continuação
Write das variaveis
Date Variables
Variaveis do Natural
Abaixo estão as variaveis do Natural15:55:24 ***** NATURAL HELP UTILITY ***** 06/06/2016
- Natural System Variables -
------------------------------------------------------------------------------
(AD) *APPLIC-ID (EN) *ERROR-NR (LV) *LEVEL
(AN) *APPLIC-NAME (ET) *ERROR-TA (LB) *LIBRARY-ID
(CM) *COM (ED) *ETID (LI) *LINE
(CV) *CONVID (GR) *GROUP (LC) *LINE-COUNT
(CO) *COUNTER (HC) *HARDCOPY (LS) *LINESIZE
(CP) *CPU-TIME (HW) *HARDWARE (LL) *LOG-LS
(CR) *CURSOR (HO) *HOSTNAME (LP) *LOG-PS
(CC) *CURS-COL (IN) *INIT-ID (MC) *MACHINE-CLASS
(CF) *CURS-FIELD (IP) *INIT-PROGRAM (NA) *NATVERS
(CL) *CURS-LINE (IU) *INIT-USER (NE) *NET-USER
(DA) *DATA (IS) *ISN (NU) *NUMBER
(DV) *DEVICE (LG) *LANGUAGE (OC) *OCCURRENCE
(EL) *ERROR-LINE (LE) *LENGTH (OP) *OPSYS
------------------------------------------------------------------------------
Code .. __ ('.' to Exit)
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Menu Exit - + Canc
Continuação
15:55:37 ***** NATURAL HELP UTILITY ***** 06/06/2016
- Natural System Variables -
------------------------------------------------------------------------------
(OS) *OS (SL) *STEPLIB
(OV) *OSVERS (SR) *SUBROUTINE
(PS) *PAGESIZE (TB) *THIS-OBJECT
(PN) *PAGE-NUMBER (TP) *TP
(PU) *PARM-USER (TY) *TPSYS
(PT) *PATCH-LEVEL (TV) *TPVERS
(PF) *PF-KEY (UI) *UI
(PA) *PF-NAME (US) *USER
(PI) *PID (UN) *USER-NAME
(PG) *PROGRAM (WL) *WINDOW-LS
(SI) *SCREEN-IO (WC) *WINDOW-POS
(ST) *SERVER-TYPE (WP) *WINDOW-PS
(SU) *STARTUP
------------------------------------------------------------------------------
Code .. __ ('.' to Exit)
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Menu Exit - + Canc
Write das variaveis
*APPLIC-ID = NATURAL *ERROR-NR = 0 *LEVEL = 1 *APPLIC-NAME = SUPORTE - NATURAL 2 *ERROR-TA = *LIBRARY-ID = NATURAL *ETID = *LINE = 50 *CONVID = 0 *GROUP = DBA *LINE-COUNT = 14 *HARDCOPY = PRINT252 *LINESIZE = 80 *CPU-TIME = 115 *HARDWARE = 2098 *LOG-LS = 250 *CURSOR = 1004 *HOSTNAME = CPAC *LOG-PS = 60 *CURS-COL = 4 *CONVID = 0 *GROUP = DBA *LINE-COUNT = 14 *HARDCOPY = PRINT252 *LINESIZE = 80 *MACHINE-CLASS = MAINFRAME *CURS-FIELD = 0 *INIT-PROGRAM = NCF411 *NATVERS = 04.01.04 *CURS-LINE = 1 *INIT-USER = DBA4022 *DATA = -1 *DEVICE = VIDEO *LANGUAGE = 1 *ERROR-LINE = 0 *OS = z/OS *OSVERS = 01.10.00 *PAGESIZE = 24 *PAGE-NUMBER = 1 *PATCH-LEVEL = 8 *PF-KEY = ENTR *PF-NAME = *PID = 3887861212413514 *PROGRAM = CSA032 *SCREEN-IO = X *SERVER-TYPE = *STARTUP = MAINMENU *STEPLIB = SYSTEM *SUBROUTINE = *USER = DBA4022 *USER-NAME = DBA ADABAS 4022 *WINDOW-LS = 80 *WINDOW-POS = 0 *WINDOW-PS = 24
Natural System Variables - Datas
Variaveis de data; 16:33:17 ***** NATURAL HELP UTILITY ***** 19/01/2023
- Natural System Variables -
------------------------------------------------------------------------------
Date Variables: Time Variables:
(DD) *DATD (4D) *DAT4D (TD) *TIMD
(DE) *DATE (4E) *DAT4E (TE) *TIME
(DI) *DATI (4I) *DAT4I (TS) *TIMESTMP
(DJ) *DATJ (4J) *DAT4J (TO) *TIME-OUT
(DU) *DATU (4U) *DAT4U (TN) *TIMN
(DG) *DATG (4V) *DATV (TX) *TIMX
(DN) *DATN (4S) *DATVS
(DX) *DATX
(GE) General information
------------------------------------------------------------------------------
Code .. dd ('.' to Exit)
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Help Menu Exit - + Canc
Date Variables
*DATD = 15.03.23 *DATE = 15/03/23 *DATI = 23-03-15 *DATJ = 23074 *DATU = 03/15/23 *DATG = 15MARCO 2023 *DATN = 20230315 *DATX = 15/03/23 *DAT4D = 15.03.2023 *DAT4E = 15/03/2023 *DAT4I = 2023-03-15 *DAT4J = 2023074 *DAT4U = 03/15/2023 *DATV = 15-MAR-2023 *DATVS = 15MAR2023 *TIME = 11:22:27.3 *TIMESTMP = DCFFD13B25826601 *TIME-OUT = 0 *TIMN = 1122273 *TIMX = 11:22:27
0 comentários:
Enviar um comentário