Title: Adicionar Librerias
 *** Prototipo del programa QCMDEXC                   
d Cmd             pr                  ExtPgm('QCMDEXC')
d  cmd                         256A   const           
d  length                       15P 5 const           
 
 *** Variables de trabajo
d CmdW            s           1024
d IndErr              s                1
 
 
c                   Eval      CmdW = 'ChkObj '                            +
c                                    'Obj('                                           +
c                                    '*Libl/'                                          +
c                                    %trim(NOMBIBL)                         +
c                                    ') ObjType('                                  +
c                                    '*LIB)'                                           
c                   Monitor                                                
c                   CallP     Cmd(CmdW:                                    
c                                 %Len(CmdW))                              
c                   On-Error  *All                                          
c                   Eval      IndErr = '1'                                 
c                   LeaveSr                                                
c                   EndMon                                                  
                                                 
----- Original Message -----
Sent: Tuesday, June 20, 2006 8:28 AM
Subject: Adicionar Librerias

Saludos Forums haber quien me puede ayudar,

Estoy creando un mantenimiento, subfile, (adicion, modifica, borra) donde se capturará una lista de biblioteca, esto es algo parecido al EDTLIB del S.O. y para esto necesito validar que la biblioteca capturada sea válida.

Existe un comando o APIS que me permita validar que el objeto *libl sea correcto, realmente es lo mismo que el comando de editar lista de bibliotecas.

Gracias por cualquier ayuda que me puedan brindar.

Wilfredo Ramírez
Analista Seniol IT
Phone    : (809) 947-6529
Mobile  :  (809) 650-0059
Mail     :  [EMAIL PROTECTED]
WWW.Republicdr.COM.DO



Responder a