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]
