Te envio este ejemplo por si te sirve: Saludos.
100 H DECEDIT('0,') DFTNAME(PMC020) DATEDIT(*DMY.)
200 0002
F********************************************************************PMC020
300 0003 F* F.M.* ALTAS,BAJ.,MOD.Y CONSUL.FICH.MAESTRO ARTICULOS * 25-2-87
**PMC020
400 F* MODIFICADO PARA AS400 FECHA: 15/5/1.997
500 0004
F********************************************************************PMC020
600 0005 FMAEARTIC UF A F 320 07AIDISK KEYLOC(3)
700 0006 FMALMACEN IF F 32 01AIDISK KEYLOC(2)
800 0007 FPMC020FM CF F 300 WORKSTN
900 0009 D B02 S 3 0 DIM(6)
1000 0010 D B12 S 5 0 DIM(6)
1100 0011 D CAN S 5 0 DIM(6)
1200 0012 D FRE S 3 0 DIM(6)
1300 0013 D B08 S 3 0 DIM(6)
1400 0014 D B09 S 5 0 DIM(6)
1500 0015 D CA1 S 5 0 DIM(6)
1600 0016 D FR1 S 3 0 DIM(6)
1700 0017 D MENS S 20 DIM(8) CTDATA PERRCD(1)
1800 0095 D DS
1900 0096 D CLAVE 1 7 0
2000 0097 D ALM 1 1 0
2100 0098 D ART 2 7 0
2200 0018 IMAEARTIC NS 01 1 CA
2300 0019 I 13 42 DES
2400 0020 I 205 205 NI
2500 0021 I 49 54 0FALT
2600 0022 I P 55 58 0PVD
2700 0023 I 43 45 0CIN
2800 0024 I 46 48 0CSA
2900 0025 I 67 72 0FVAR
3000 0026 I P 73 76 0PVDA
3100 0027 I P 10 12 0MIN
3200 0028 I 260 260 MAR
3300 0029 I 85 90 0FULC
3400 0030 I 107 112 0PULC
3500 0031 I P 81 84 0UCOM
3600 0032 I 206 211 0FBAJ
3700 0033 I P 124 127 0PMC
3800 0034 I 185 194 REF1
3900 0035 I 195 204 REF2
4000 0036 I 118 123 0FUV
4100 0037 I P 91 94 0EXI
4200 0038 I 97 100 0PRO1
4300 0039 I 103 106 0PRO2
4400 0040 I 261 290 DAD1
4500 0041 I 291 304 DAD2
4600 0042 I P 128 145 CAN
4700 0043 I P 146 157 FRE
4800 0044 I P 113 117 0VEXI
4900 0045 I 212 241 B12
5000 0046 I 242 259 B02
5100 0047 I P 158 161 0TOEN
5200 0048 I P 162 166 0VALEN
5300 0049 I P 167 170 0TOTSA
5400 0049 I P 176 179 0TOTSAM
5500 0050 I P 171 175 0VALSA
5600 0050 I P 180 184 0VALSAM
5700 0051 I 305 307 0VEC
5800 0052 I 308 312 0PED
5900 0053 I 313 315 0VEF
6000 0054 I 316 320 0FAC
6100 0055 I NS 02
6200 0056 IMALMACEN NS 03
6300 0057 I 3 20 NALM
6400 0058 IPMC020FM NS 10 1 C
6500 0059 I* FORMAT- PMC02001 - PANTALLA DECISION DE MANDATOS
PMC020
6600 0060 I NS 11 1 CA
6700 0061 I 2 2 0ALM
6800 0062 I* FORMAT- PMC02002 - PANTALLA DE ALTAS ARTICULOS
PMC020
6900 0063 I NS 12 1 CB
7000 0064 I 2 7 0ART
7100 0065 I* FORMAT- PMC02003 - PANTALLA DE BAJA ARTICULOS
PMC020
7200 0066 I* FORMAT- PMC02004 - PANTALLA MODIFICACION DE ARTICULOS
PMC020
7300 0067 I NS 13 1 CC
7400 0068 I OR 14 1 CD
7500 0069 I 2 31 DES1
7600 0070 I 32 32 NI1
7700 0071 I 33 38 0FALT1
7800 0072 I 39 45 0PVD1
7900 0073 I 46 48 0CIN1
8000 0074 I 49 51 0CSA1
8100 0075 I 52 57 0FVAR1
8200 0076 I 58 64 0PVDA1
8300 0077 I 65 69 0MIN1
8400 0078 I 70 70 MAR1
8500 0079 I 71 76 0FULC1
8600 0080 I 77 82 0PULC1
8700 0081 I 83 89 0UCOM1
8800 0082 I 90 95 0FBAJ1
8900 0083 I 96 102 0PMC1
9000 0084 I 103 112 REF11
9100 0085 I 113 122 REF21
9200 0086 I 123 128 0FUV1
9300 0087 I 129 135 0EXI1
9400 0088 I 136 139 0PRO11
9500 0089 I 140 143 0PRO21
9600 0090 I 144 173 DAD11
9700 0091 I 174 187 DAD21
9800 0092 I 188 196 0VEXI1
9900 0093 I* FORMAT- PMC02005 - PANTALLA DE CONSULTAS ARTICULOS
PMC020
10000 0094 I NS 15 1 CE
10100 0099 C SHTDN 40
10200 0100 C 40 SETON LR
10300 0101 C SETOFF 22
10400 C*
10500 C 99 GOTO S1ZZ
10600 C Z-ADD 1 M
10700 C SETON 02
10800 C EXCEPT
10900 C SETOFF 02
11000 C SETON 99
11100 C S1ZZ TAG
11200 C**
11300 C* LEE PANTALLA
11400 C**
11500 C READ PMC020FM 05
11600 C*
11700 C N04 SETON 04
11800 C SETOFF 0522
11900 C**
12000 0102 C EXSR HORAS
12100 0103 C Z-ADD 0 ONCE 11 0
12200 0104 C Z-ADD 0 B08
12300 0105 C Z-ADD 0 B09
12400 0106 C Z-ADD 0 CA1
12500 0107 C Z-ADD 0 FR1
12600 0108 C Z-ADD 0 TRES 3 0
12700 0109 C Z-ADD 0 CINCO 5 0
12800 0110 C Z-ADD 0 SIETE 7 0
12900 0111 C Z-ADD 0 NUEVE 9 0
13000 0112 C Z-ADD 1 M 2 0
13100 0113 C 10 EXCEPT
13200 0114 C N11 GOTO SIN11
13300 0115 C KG SETON LR
13400 0116 C SETOFF 717273
13500 0117 C SETOFF 74
13600 0118 C KG GOTO FIN
13700 0119 C Z-ADD 1 M
13800 0120 C ALM CHAIN MALMACEN 22
13900 0121 C 22 Z-ADD 2 M
14000 0122 C 22 GOTO FIN
14100 0123 C KB SETON 71
14200 0124 C KC SETON 72
14300 0125 C KD SETON 73
14400 0126 C KE SETON 74
14500 0127 C 71 MOVE ' ALTAS ' CAMPO 8
14600 0128 C 72 MOVE ' BAJAS ' CAMPO
14700 0129 C 73 MOVE 'MODIFIC.' CAMPO
14800 0130 C 74 MOVE 'CONSULTA' CAMPO
14900 0131 C Z-ADD 8 M
15000 0132 C GOTO FIN
15100 0133 C SIN11 TAG
15200 0134 C N12 GOTO SIN12
15300 0135 C KA SETOFF 717273
15400 0136 C KA SETOFF 74
15500 0137 C KA GOTO FIN
15600 0138 C CLAVE CHAIN MAEARTIC 25
15700 0173 C TOTSAM ADD TOTSA TOTSA
15800 0173 C VALSAM ADD VALSA VALSA
15900 C 71
16000 0139 CANN25 SETON 22
16100 0140 C 22 Z-ADD 5 M
16200 0141 C 22 GOTO FIN
16300 C N71
16400 0142 CAN 25 SETON 22
16500 0143 C 22 Z-ADD 6 M
16600 0144 C 22 GOTO FIN
16700 C N71
16800 0145 CAN 02 SETON 22
16900 0146 C 22 Z-ADD 7 M
17000 0147 C 22 GOTO FIN
17100 0148 C SIN12 TAG
17200 0149 C N13 GOTO SIN13
17300 0150 C KA SETOFF 717273
17400 0151 C KA SETOFF 74
17500 0152 C KA GOTO FIN
17600 0153 C 71 EXCEPT
17700 0154 C GOTO FIN
17800 0155 C SIN13 TAG
17900 0156 C N14 GOTO SIN14
18000 0157 C KA SETOFF 717273
18100 0158 C KA SETOFF 74
18200 0159 C KA GOTO FIN
18300 0160 C 73
18400 0161 COR 72CLAVE CHAIN MAEARTIC 22
18500 0162 C 22 Z-ADD 6 M
18600 0163 C 22 GOTO FIN
18700 0164 C 73
18800 0165 COR 72 EXCEPT
18900 0166 C GOTO FIN
19000 0167 C SIN14 TAG
19100 0168 C N15 GOTO SIN15
19200 0169 C KA SETOFF 717273
19300 0170 C KA SETOFF 74
19400 0171 C KA GOTO FIN
19500 0172 C 74CLAVE CHAIN MAEARTIC 22
19600 0173 C 22 Z-ADD 6 M
19700 0174 C 22 GOTO FIN
19800 0175 C GOTO FIN
19900 0176 C SIN15 TAG
20000 0177 C FIN TAG
20100 0178 C N22 Z-ADD 1 M
20200 C 71
20300 0179 CANN22
20400 COR 72
20500 0180 CANN22
20600 COR 73
20700 0181 CANN22
20800 COR 74
20900 0182 CANN22 Z-ADD 8 M
21000 0183 C HORAS BEGSR
21100 0184 C TIME DOCE 12 0
21200 0185 C MOVE DOCE FECHA 6 0
21300 0186 C MOVEL DOCE HORA 6 0
21400 0187 C ENDSR
21500 0188 OPMC020FM D 10
21600 0189 O OR 11NKG
21700 0190 O OR 11 22NKG
21800 0191 O OR KA
21900 0192 O K8 'PMC02001'
22000 0193 O HORA Y 8
22100 0194 O FECHA Y 16
22200 0195 O ALM 17
22300 0196 O NALM 37
22400 0197 O D 71 11
22500 0198 O OR 72 11
22600 0199 O OR 73 11
22700 0200 O OR 74 11
22800 0201 O OR 12 22
22900 0202 O OR 13NKA
23000 0203 O OR 14NKA
23100 0204 O OR 15NKA
23200 0205 O K8 'PMC02002'
23300 0206 O NALM 20
23400 0207 O ART 26
23500 0208 O CAMPO 34
23600 0209 O MENS(M) 54
23700 0210 O D 12N22 71
23800 0211 O K8 'PMC02003'
23900 0212 O MENS(M) 20
24000 0213 O D 12N22 72
24100 0214 O OR 12N22 73
24200 0215 O K8 'PMC02004'
24300 0216 O DES 30
24400 0217 O NI 31
24500 0218 O FALT 37
24600 0219 O PVD 44
24700 0220 O CIN 47
24800 0221 O CSA 50
24900 0222 O FVAR 56
25000 0223 O PVDA 63
25100 0224 O MIN 68
25200 0225 O MAR 69
25300 0226 O FULC 75
25400 0227 O PULC 81
25500 0228 O UCOM 88
25600 0229 O FBAJ 94
25700 0230 O PMC 101
25800 0231 O REF1 111
25900 0232 O REF2 121
26000 0233 O FUV 127
26100 0234 O EXI 134
26200 0235 O PRO1 138
26300 0236 O PRO2 142
26400 0237 O DAD1 172
26500 0238 O DAD2 186
26600 0239 O VEXI 195
26700 0240 O MENS(M) 215
26800 0241 O D 12N22 74
26900 0242 O K8 'PMC02005'
27000 0243 O DES 30
27100 0244 O NI 31
27200 0245 O FALT 37
27300 0246 O PVD 44
27400 0247 O CIN 47
27500 0248 O CSA 50
27600 0249 O FVAR 56
27700 0250 O PVDA 63
27800 0251 O MIN 68
27900 0252 O MAR 69
28000 0253 O FULC 75
28100 0254 O PULC 81
28200 0255 O UCOM 88
28300 0256 O FBAJ 94
28400 0257 O PMC 101
28500 0258 O REF1 111
28600 0259 O REF2 121
28700 0260 O FUV 127
28800 0261 O EXI 134
28900 0262 O PRO1 138
29000 0263 O PRO2 142
29100 0264 O DAD1 172
29200 0265 O DAD2 186
29300 0266 O VEXI 195
29400 0267 O PED 200
29500 0268 O VEC 203
29600 0269 O FAC 208
29700 0270 O VEF 211
29800 0271 O TOEN 221
29900 0272 O VALEN 233
30000 0273 O TOTSA 243
30100 0274 O VALSA 255
30200 0275 O MENS(M) 275
30300 O E 02
30400 O K8 'PMC02001'
30500 0276 OMAEARTIC EADD 71
30600 0277 O 1 'A'
30700 0278 O ALM 3
30800 0279 O ART 9
30900 0280 O MIN1 12P
31000 0281 O DES1 42
31100 0282 O CIN1 45
31200 0283 O CSA1 48
31300 0284 O SIETE 62P
31400 0285 O FALT1 54
31500 0286 O PVD1 58P
31600 0287 O FVAR1 72
31700 0288 O PVDA1 76P
31800 0289 O SIETE 80P
31900 0290 O UCOM1 84P
32000 0291 O FULC1 90
32100 0292 O EXI1 94P
32200 0293 O PRO11 100
32300 0294 O PRO21 106
32400 0295 O PULC1 112
32500 0296 O VEXI1 117P
32600 0297 O FUV1 123
32700 0298 O PMC1 127P
32800 0299 O CA1 145P
32900 0300 O FR1 157P
33000 0301 O SIETE 161P
33100 0302 O NUEVE 166P
33200 0303 O SIETE 170P
33300 0304 O NUEVE 175P
33400 0305 O SIETE 179P
33500 0306 O NUEVE 184P
33600 0307 O REF11 194
33700 0308 O REF21 204
33800 0309 O NI1 205
33900 0310 O FBAJ1 211
34000 0311 O B09 241
34100 0312 O B08 259
34200 0313 O MAR1 260
34300 0314 O DAD11 290
34400 0315 O DAD21 304
34500 0316 O TRES 307
34600 0317 O CINCO 312
34700 0318 O TRES 315
34800 0319 O CINCO 320
34900 0320 O E 73
35000 0321 O MIN1 12P
35100 0322 O DES1 42
35200 0323 O CIN1 45
35300 0324 O CSA1 48
35400 0325 O FALT1 54
35500 0326 O PVD1 58P
35600 0327 O FVAR1 72
35700 0328 O PVDA1 76P
35800 0329 O UCOM1 84P
35900 0330 O FULC1 90
36000 0331 O EXI1 94P
36100 0332 O PRO11 100
36200 0333 O PRO21 106
36300 0334 O PULC1 112
36400 0335 O VEXI1 117P
36500 0336 O FUV1 123
36600 0337 O PMC1 127P
36700 0338 O REF11 194
36800 0339 O REF21 204
36900 0340 O NI1 205
37000 0341 O FBAJ1 211
37100 0342 O MAR1 260
37200 0343 O DAD11 290
37300 0344 O DAD21 304
37400 0345 O E 72
37500 0346 O 1 'B'
37600 ** SERIE DE MENSAJES -MENS
37700
37800 ALMACEN ERRONEO
37900
38000
38100 YA EXISTE REGISTRO
38200 NO EXISTE REGISTRO
38300 CLAVE DADA DE BAJA
38400 MDTO-1 A INICIO
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Dpto.Informática
Prod.Climax(José Sánchez)
Enviado el: jueves, 10 de junio de 2004 16:31
Para: Forum. [EMAIL PROTECTED] Es (E-mail)
Asunto: Tratamiento pantalla por Primario
Hola foro, tengo una aplicacion ·"muy vieja" de entorno 36 que la estoy pasando a ILE.
El archivo de pantalla es tratado por primario y quiero dejarlo, si puedo, de la misma
manera. El problema es que el RPG36 al convertirlo a ILE, me da error cuando intenta
visualizar la primera pantalla. Dice que "Se requiere un nombre de Registro". La idea
es dejarlo igual para ahorrarme la reprogramacion, siempre que pueda, claro.
Saludos
José Sánchez
Dpto.Informática Prod.Climax, S.A.
Pol.Ind.Sector Mollet C/A Nº 1
08150-Parets del Valles(Barcelona)
www.productosclimax.com
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
