AS/400 - Ejecutar Varios QRY desde CL en AS/400

buenas tardes, soy nuevo en lo que es conocer el AS/400
en mi lugar de trabajo manejo varias sentencias QRY las cuales se ejecutan individualmente para emitir reportes, mi pregunta es saber si existe manera de ejecutarlas todas al mismo tiempo y llenar los datos solicitados en una única pantalla.

los QRY son los siguientes:


1) RUNQRY QRY(RENNY/PRESTACION) RCDSLT(*YES)

Dato solicitado: T01.CODFIC EQ Respuesta: ' 105956'
Dato solicitado: T01.CIAFIC EQ Respuesta: '01'


2) RUNQRY QRY(RENNY/INTERESES) RCDSLT(*YES)

Dato solicitado: T01.CODFIC EQ Respuesta: ' 105956'
Dato solicitado: T02.FECIIN GE Respuesta: 20190100


3) RUNQRY QRY(RENNY/UTILIDADES) RCDSLT(*YES)

Dato solicitado: T01.CODFIC EQ Respuesta: ' 107914'
Dato solicitado: T01.CIAFIC EQ Respuesta: '01'
Dato solicitado: T02.PRMMPR EQ Respuesta: '0010'
Dato solicitado: T02.FECIMP GE Respuesta: 20181200
Dato solicitado: T02.FECFMP LE Respuesta: 20190300



4) RUNQRY QRY(RENNY/VACACIONES) RCDSLT(*YES)

Dato solicitado: T01.CODFIC EQ Respuesta: ' 105956'
Dato solicitado: T02.CTOCVC LIST Respuesta: 0012 0013 0018 0020



5) RUNQRY QRY(RENNY/CTO_FIJO) RCDSLT(*YES)

Dato solicitado: T01.CODFIC EQ Respuesta: ' 105956'
Dato solicitado: T01.CIAFIC EQ Respuesta: '01'



6) RUNQRY QRY(RENNY/HISTORICOS) RCDSLT(*YES)

Dato solicitado: T01.CODFIC EQ Respuesta: ' 105956'
Dato solicitado: T02.CTOHCF LIST Respuesta: 0404 0604



son 6 los QRY que se manejan estan numerados y debajo de cada uno esta el dato que solicita y luego de la palabra EQ, LIST, GE, LE, esta el dato que se agrega como respuesta este dato varia dependiendo la fecha, código del empleado o códigos de empresa, pero estos QRY se ejecutan todos a una misma persona al momento de imprimir estos reportes

espero me puedan colaborar

gracias de antemano.

con el comando SBMJOB summitis los quieris uno atras de otro. Tenes que corroborar que SBS odes usar (Como ejemplo te puse QBATCH) Asi seria uno atras de otro.]=>
SBMJOB CMD(RUNQRY QRY(RENNY/PRESTACION) RCDSLT(*YES)) JOBQ(QBATCH)


La otra interactiva es armar uin PGM CL.

buenas tardes amigo inserte el código que me das en el As400 y me genera Error diciendo que el dispositivo de salida es pantalla y no se puede generar debido al parámetro RCDSLT(*YES), este parámetro lo tengo para que cuando ejecute el comando me de la opcion de agregar los datos que necesito busque e imprima, pero en el codigo que me indicas da un error.

En cuanto a lo que dices del PGM CL me podrías explicar??

A excepción del 3er query los demás tienen en común el filtro T01.CODFIC EQ (en ele ejemplo con ' 105956' ) por lo que creo que para ellos podrías hacer un solo query unicamente por ese filtro anidando todos esos archivos en "especificar selección de archivos" y las otras condiciones trabajarlo por la opción de "seleccionar registros"

Sin embargo puedes encontrar los siguientes inconvenientes:
a) se puede demorar demasiado y consumir recursos al anidar varios archivos.
b) puede ser que algún campo de la condiciones de filtro se repita en los otros archivos y malogre la selección de registros.

Me inclinaría por hacer un programa en vez de tantos querys.

Jesús Acuña
www.cursos-as400.com

buenas tardes amigo Jesús en lo que me respondiste tienes razón, en cuanto a que los campos de condiciones y filtros varios de los qry tienen los mismos campos , solo varia es el filtro de busqeuda.

en cuanto a lo de elaborar el programa CL es donde tengo el inconveniente debido a que mi conocimiento en As400, no llega hasta ese Nivel. soy administrador de RRHH y uso el As400 a bajo nivel en cuanto a SQL y Creacion de QRY para busqueda de registros y reportes pero en elaborar CL no tengo el conocimiento necesario, si pudieran colaborarme.

Tienes un mensaje privado