Formato de prestamo de equipo

Eric, cheque una macro que estuve viendo con anterioridad y esta macro dependiendo de varias cosas corre un proceso para generar archivos y que posteriormente los transfiere al equipo IBM para que se impriman Estados de Cuenta.

Después de generar el archivo, se ejecuta una subutina de SEND_CONECT que ejecuta el programa $DATA24.NDMOBJ.NDMCOM pasandole ciertos parámetros dentro de los cuales se le da el nombre del archivo generado denominado SOURCE-FILE y el nombre del archivo que se deja en el IBM denominado DEST.FILE, posteriormente se checa si fue satisfactorio el envio.

Te paso la rutina SEND_CONECT para que cheques si es similar el proceso que tienes.

?SECTION  SEND_CONNECT ROUTINE

== =================

== =================  RUTINA  DE TRANSFERENCIA VIA CONNECT DIRECT

== =================  CON COMANDO DIRECTO EN CONNECT DIRECT

==

          #OUTPUT  ENVIO A CONNECT DIRECT

          #OUTPUT  ORIGEN  [SOURCE^FILE]

          #OUTPUT  DESTINO [DEST^FILE]

          #OUTPUT  SCRIPT [SCRIPT]

==        #DELAY 6000

          RUN $DATA24.NDMOBJ.NDMCOM / OUTV OUTCONEC/ ;SUB PROC=[SCRIPT]   &

          &LOCALFILE=[SOURCE^FILE]                       &

          &REMOTEFILE=[DEST^FILE]                      ;EXIT

          #LINEDEL OUTCONEC 1 TO 26

          #SETMANY J1 J2 J3 J4 J5 J6 J7, [#EXTRACT OUTCONEC]

          #OUTPUT J1 [J1]

          #OUTPUT J2 [J2]

          #OUTPUT J3 [J3]

          #OUTPUT J4 [J4]

          #OUTPUT J5 [J5]

          #OUTPUT J6 [J6]

          #OUTPUT J7 [J7]

          #DELAY 6000

          [#IF "[J3]" '=' "successfully."   |THEN|

               #OUTPUT [Clear^Screen]

               #OUTPUT [LINE^1]

               #OUTPUT

               #OUTPUT

               #OUTPUT

               #OUTPUT

               #OUTPUT

               #OUTPUT [COL]  " Se ha generado la solicitud a Connect Direct "

               #OUTPUT [COL]  " Con el numero : [J7]                        "

               #DELAY 300

               #OUTPUT [Clear^Screen]

               #OUTPUT [LINE^1]

               #OUTPUT

               #OUTPUT

               #OUTPUT

               #OUTPUT

               #OUTPUT

               #OUTPUT [COL]      " Espere.. estoy haciendo la transferencia a IBM "

               #DELAY 1000

               $DATA24.NDMOBJ.NDMCOM /OUTV OUT/;SEL STAT PNUMBER=[J7] STEPEND;EXIT

               #LINEDEL OUT 1 TO 24

               #OUTPUT [Clear^Screen]

               OUTVAR   OUT

               #DELAY 1000

          |else|

               #OUTPUT [Clear^Screen]

               #OUTPUT [LINE^1]

               #OUTPUT

               #OUTPUT

               #OUTPUT

               #OUTPUT [LINE^20]

               #OUTPUT [LINE^21]

               #DELAY  1000

          ] == end if

    #RETURN

Status Key 2

The rightmost character position of the file-status data item is known as Status Key 2

and further describes the results of an input-output operation.

Table 8-5. I-O Status Code Meanings: Successful Completion

I-O Status codes File Exception Condition

“00” The input-output statement executed successfully, and no further

information concerning the input-output operation is available.

“02” The input-output statement executed successfully, but a duplicate key

is detected in one of the following ways:

∙ For a READ statement, the key value for the current key of

reference is equal to the value of that same key in the next record

within the current key of reference

∙ For a REWRITE or WRITE statement, the record just written

created a duplicate key value for at least one alternate record key

for which duplicates are allowed.

“04” A READ statement executed successfully, but the length of the record

being processed does not conform to the fixed file attributes for that

file.

“05” The input-output statement executed successfully; however, for an

OPEN statement, the referenced optional file is not present at the time

the OPEN statement is executed (if the open mode is I-O or

EXTEND, the file has been created).

“07” The input-output statement executed successfully, but a requested

option could not be done for of one of these reasons:

∙ For a CLOSE statement with the NO REWIND, REEL or UNIT

REMOVAL phrase or for an OPEN statement with the NO

REWIND phrase, the referenced file does not reside on a

reel/unit medium.

∙ For an OPEN statement that references a file that qualifies for

...