Hola a todos
Tengo un programa que al final del codigo tiene la instrucion /COPY haciendo
referencia a un programa el cual tiene instrucciones en las Hojas "I" y Hojas "C"
entonces al compilar el programa me da el siguiente error:
M e s s a g e S u m m a r y
* QRG2001 Severity: 30 Number: 8
Message . . . . : Form-Type entry invalid or out of sequence.
Specification ignored.
Hay alguna manera de compilar este tipo de programas para evitar este error?
Anexo el programa que se utiliza en la instruccion /COPY
Saludos y gracias por su ayuda (espero haberme explicado)
Gerardo Santillana
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554.5832
MX Ph: (88) 12.81.63/64/65 Ext. 5832
e-mail [EMAIL PROTECTED]
F/TITLE RTVKEY Retrieve Remembered Key fields
F*****************************************************************
F* COPYRIGHT SYSTEM SOFTWARE ASSOCIATES,INC. CHICAGO,ILL. 1992
F*****************************************************************
F*
F* PROGRAM ID - RTVKEY
F* PROGRAM NAME - Retrieve Remembered Key fields
F*
F* BMR Date Description
F* ---- ------- -----------------------------------------------
0000aF* 0000 31Mar93 Version 4.0 (BMR markings removed.)
F* 24394 10Feb97 Bridge 2000..
F*
F*****************************************************************
F*
F* Subroutine Fields.. USNAME - User Space Name.
F* USLIB - User Space Library.
F* USQN - Qualified User Space Name.
F* LENDTA - Length of User Space.
F* STRPOS - Start Position of User Space.
F* ZKYSPC - Key Space externally defined
F* Data Structure.
F* W8FLIB - Default BPCS Library defined
F* in SSASYS.
F*
F* Required Inputs.... WSID - Work Station ID.
F*
F* Required /COPYs.... None
F*
F* Outputs............ All fields defined in the ZKEYSPC
F* Data Structure.
F*
F* Other Requirements. None.
F* Other Requirements. The externally defined system LDA data
F* structure, ZLDA, must be included in the
F* RPG program.
F*************************************************************
F*
I*
I* User Space Qualified Name Data Structure.
IUSRSPC DS
I 1 10 USNAME
I 11 20 USLIB
I 1 20 USQN
I DS
I B 1 40LENDTA
I B 5 80STRPOS
I*
I* Key Space Data Structure placed over User Space.
IZKYSPC E DSZKEYSPC
I*
I* BPCS System Control Data Area.
ISSASYS DS
I 170 179 W8FLIB
I 1 256 W8DTAA
C****************************************************************
C* RTVKEY - Retrieve key(s) from the Remembered Key user space
C****************************************************************
C*
C RTVKEY BEGSR
C*
C *NAMVAR DEFN SSASYS
C IN SSASYS
C*
C MOVELWSID USNAME
C MOVELW8FLIB USLIB
C*
C***24394d
C** Z-ADD300 LENDTA
C**24394e
C**24394a
C Z-ADD302 LENDTA
C**24394e
C Z-ADD1 STRPOS
C*
C CALL 'QUSRTVUS' 90
C PARM USQN
C PARM STRPOS
C PARM LENDTA
C PARM ZKYSPC
C*
C ENDSR
