AS/400 - ILE RPG

Amigos del foro:

Intento aprender sobre ILE RPG, tengo algunos manuales y afortunadamente tengo acceso a un AS/400 iSeries, he creado un pequeño programa con algunas líneas como la siguiente:

D BuscaZIP N OVERLAY(Indicadores:3)

/Free
DOW '1';
Exfmt HdrScn;
etc etc

Pero al intentar compilar el programa me dices que las lineas FREE no tienen una entrada válida, supongo que debe llevar C, pero ni con eso funciona.

Desde luego el programa tiene tipo RPGLE.

Que estoy haciendo mal ?

Saludos

Hola amigo/

Te paso otro ejemplo:

Fbuttonfm cf e workstn

C*- ejecucion principal
C dou *inKC=*on
C exfmt fmt01

C select
C when *inKC=*on
C eval *inlr=*on

C when *inKe=*on
C eval *inlr=*on
C when pb2 = 1
c Eval Variable =
c 'return'
*-----> return
c Exsr ejecutar
C endsl
C enddo

espero te sirva
Daniel

Daniel:

Muchas gracias por la respuesta pero creo que mi problema va con las versiones, tal parece que la versión (4.0M0) que utilizo no acepta el código FREE.

Saludos

Ok, amigo

Un abrazo desde Argentina.
Me tome unos dias para alejarme del teclado....(cada vez necesito estar mas lejos de los sistemas ...jeje)

Recien hoy vi tu respuesta.
Suerte y Buen fin de semana
Daniel

hola , a partir de la version 5.1 se puede ocupar el ILE RPG FREE
SALUDOS

No escribas las lineas de código debajo de las plecas de FREE y de END-FREE...
siempre procura ponerlas despues de esas plecas.

Saludos..!!

Verifcar que /free empiece en la columna 15 minimo, cerrar el bloque con
/end-free
Dow y el resto debe estar pasadas la columna 15