forked from flavio-casacurta/Nat2Py
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathdefine_data.TXT
More file actions
78 lines (78 loc) · 3.35 KB
/
define_data.TXT
File metadata and controls
78 lines (78 loc) · 3.35 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
0010 DEFINE DATA
0020 GLOBAL USING G11111AA
0030 LOCAL USING L11111AA
0040 LOCAL
0050 1 #ATR (C)
0060 1 #ATR1 (C/1:5)
0070 1 #ATR2 (C/1:5,1:5)
0080 1 #ATR3 (C)
0090 1 #ATR4 (C)
0100 1 #ATR5 (C)
0110 1 #ATR6 (C)
0120 1 #TELA
0130 2 #CAMPO-ALFA (A78)
0140 2 #CAMPO-NUM (A20)
0150 2 REDEFINE #CAMPO-NUM
0160 3 FILLER 1X
0170 3 #CAMPO-R-NU-TOT (N19)
0180 3 REDEFINE #CAMPO-R-NU-TOT
0190 4 #CAMPO-R-NU-DEC (N17,2)
0200 2 #CAMPO-PACK (A16)
0210 2 REDEFINE #CAMPO-PACK
0220 3 FILLER 1X
0230 3 #CAMPO-R-PACK-TOT (N15)
0240 3 REDEFINE #CAMPO-R-PACK-TOT
0250 4 #CAMPO-R-PACK-DEC (N13,2)
0260 2 #CAMPO-BIN (A09)
0270 2 REDEFINE #CAMPO-BIN
0280 3 #CAMPO-BIN-N (N09)
0290 2 #CAMPO-DATA-TELA (A08)
0300 2 REDEFINE #CAMPO-DATA-TELA
0310 3 #CAMPO-DT-NUM-ANO (A04)
0320 3 #CAMPO-DT-NUM-MES (A02)
0330 3 #CAMPO-DT-NUM-DIA (A02)
0340 2 REDEFINE #CAMPO-DATA-TELA
0350 3 #CAMPO-DATA-TELA-N (N08)
0360 2 #CAPO-HORA-TELA (A06)
0370 2 REDEFINE #CAPO-HORA-TELA
0380 3 #COMPO-HORA-HO (A02)
0390 3 #COMPO-HORA-MM (A02)
0400 3 #COMPO-HORA-SS (A02)
0410 2 REDEFINE #CAPO-HORA-TELA
0420 3 #COMPO-HORA-HO-N (N06)
0430 2 #CAMPO-MULTIPLO (A03/1:5)
0440 2 REDEFINE #CAMPO-MULTIPLO
0450 3 #CAMPO-MULTIPLO-R (N03/1:5)
0460 2 #CAMPO-PE-1 (1:5)
0470 3 #CAMPO-PE-ALFA (A10)
0480 3 #CAMPO-PE-NUM (A05)
0490 3 REDEFINE #CAMPO-PE-NUM
0500 4 #CAMPO-PE-NUM-R (N05)
0510 **
0520 2 #CAMPO-PE-2 (1:5)
0530 3 #CAMPO-PE2-MULTIPLO (A03/1:5)
0540 3 REDEFINE #CAMPO-PE2-MULTIPLO
0550 4 #CAMPO-PE2-MULTIPLO-R (N03/1:5)
0560 3 #CAMPO-PE2-ALFA (A10)
0570 3 #CAMPO-PE2-NUM (A05)
0580 3 REDEFINE #CAMPO-PE2-NUM
0590 4 #CAMPO-PE2-NUM-R (N05)
0600 **
0610 2 #TL-CONFIRMA (A01)
0620 1 #IND1 (N05)
0630 1 #IND2 (N05)
0640 1 #IND-TL (N07)
0650 1 #TL-TX-CONF (A13) INIT<'CONFIRMA S/N:'>
0660 1 #TL-TX-REGISTRO (A16) INIT<'REGISTRO ISN :'>
0670 1 #TL-REGISTRO (N08)
0680 1 #TL-TX-DATE (A10) INIT<'DATA DATE:'>
0690 1 #TL-DT-DATE (A10)
0700 1 #TL-TX-TIME (A10) INIT<'HORA TIME:'>
0710 1 #TL-HO-TIME (A08)
0720 1 #TX-PFS (A48)
0730 INIT <'PF8 - AVANCA'>
0740 1 #CAMPO-RETORNA (A78)
0750 1 #TB-RETORNA (A78/1:10000)
0760 1 #IND-TB (N01)
0770 END-DEFINE
0780 SET KEY ALL