RPG - COMIT en código RPG

   
Vista:

COMIT en código RPG

Publicado por Maria (1 intervención) el 13/10/2009 09:44:51
Como se pone un COMIT en el código de RPG siguente ???:
Muchas Gracias

DSTATUS DS
DRETORNO 1 7A
DINPUT DS
DDEPARTAMENTO 1 2A
DSERVICIO 3 4A
DUNIDAD 5 6A
DAPLICACION 7 9A
DFGENERA 10 17S 0
DHGENERA 18 23S 0
DNDOCUM 24 29S 0
DFORMATO 30 30A
DFENVIO 31 31A
DCLDOCUM 32 32A
DTIPDOCUM 33 33A
DDCORRESP 34 34A
DOBSERV 35 94A
DLUGARRET 95 95A
DIMPORTE 96 103S 2
DCREEMBOLSO 104 104A
DUSUARIO 105 114A
DOUTPUT DS
DAALOTE 1 4S 0
DNUMLOTE 5 9S 0
*
C *ENTRY PLIST
C PARM STATUS
C PARM INPUT
C PARM OUTPUT
*

C MOVEL *BLANKS RETORNO
C Z-ADD *ZEROS AALOTE
C Z-ADD *ZEROS NUMLOTE
*
C/EXEC SQL
C+ CALL AVJ10D/J10117PA (:RETORNO,
C+ :DEPARTAMENTO, :SERVICIO, :UNIDAD,
C+ :APLICACION, :FGENERA, :HGENERA, :NDOCUM,
C+ :FORMATO, :FENVIO, :CLDOCUM, :TIPDOCUM, :DCORRESP,
C+ :OBSERV, :LUGARRET, :IMPORTE, :CREEMBOLSO, :USUARIO,
C+ :AALOTE, :NUMLOTE )
C/END-EXEC
*
C SQLCODE IFNE 0
C MOVEL 'ERR' RETORNO
C ENDIF
C SETON LR
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder