-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathASMP0619.ASM
More file actions
108 lines (108 loc) · 3.39 KB
/
ASMP0619.ASM
File metadata and controls
108 lines (108 loc) · 3.39 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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
***********************************************************************
* OBJETIVOS: LER UMA LISTA DE CPFS E UMA LISTA DE ALUNOS, DE ARQUIVOS
* KSAM DISTINTOS. TROCAR A CHAVE DO REGISTRO DE ALUNO DA
* MATRICULA PELO CPF CALCULADO. GRAVA O RESULTADO EM UM
* NOVO ARQUIVO KSAM.
***********************************************************************
* PROCEDIMENTOS DE INICIALIZACAO DO PROGRAMA (LINKAGE CONVENTION)
***********************************************************************
ASMP0619 AMODE 31
ASMP0619 RMODE 24
ASMP0619 CSECT
INICIO ASMP0619,R12
***********************************************************************
* CORPO DO PROGRAMA
***********************************************************************
OPEN (CPFSIN,INPUT)
LTR R15,R15
BNZ ROT_ABND
OPEN (ALUNOS,INPUT)
LTR R15,R15
BNZ ROT_ABND
OPEN (SAIDA,OUTPUT)
*
LA R7,CPF_IN
*
LER_REGS EQU *
GET CPFSIN,CPF_IN
GET ALUNOS,REG_IN
*
LINK EP=ASMSCPF1
*
MVC OUT_CPF,CPF_OUT
MVC OUT_NOME,IN_NOME
MVC OUT_SEXO,IN_SEXO
MVC OUT_N1,IN_N1
MVC OUT_N2,IN_N2
MVC OUT_N3,IN_N3
MVC OUT_N4,IN_N4
MVC OUT_N5,IN_N5
*
PUT SAIDA,REG_OUT
*
B LER_REGS
***********************************************************************
* ROTINA DE ABEND
***********************************************************************
ROT_ABND EQU *
MVC MSG+1(12),=C'OPEN FALHOU.'
PUT SAIDA,MSG
***********************************************************************
* FINALIZA (FECHA) OS DATASETS
***********************************************************************
FIMARQ EQU *
CLOSE CPFSIN
CLOSE ALUNOS
CLOSE SAIDA
***********************************************************************
* PROCEDIMENTOS DE FINALIZACAO DO PROGRAMA (LINKAGE CONVENTION)
***********************************************************************
FIM
***********************************************************************
* DEFINICAO DE AREAS DE DADOS
***********************************************************************
REG_IN DS 0CL80
IN_MATR DS CL6
IN_NOME DS CL40
IN_SEXO DS CL11
IN_N1 DS CL4
IN_N2 DS CL4
IN_N3 DS CL4
IN_N4 DS CL4
IN_N5 DS CL4
DC 13CL1' '
*
REG_OUT DS 0CL80
OUT_CPF DS CL11
OUT_NOME DS CL40
OUT_SEXO DS CL11
OUT_N1 DS CL4
OUT_N2 DS CL4
OUT_N3 DS CL4
OUT_N4 DS CL4
OUT_N5 DS CL4
DC 8CL1' '
*
CPFS DS 0CL22
CPF_IN DS CL11
CPF_OUT DS CL11
*
MSG DS CL80
*
CPFSIN DCB DDNAME=CPFSIN, *
DSORG=PS, *
MACRF=GM, *
EODAD=FIMARQ
*
ALUNOS DCB DDNAME=ALUNOS, *
DSORG=PS, *
MACRF=GM, *
EODAD=FIMARQ
*
SAIDA DCB DDNAME=SAIDA, *
DSORG=PS, *
MACRF=PM
*
LTORG
*
END ASMP0619