If you don't want a CLP, here's how we do it in a program:
QNAME@ = 'DQJUC';
QLIBR@ = '*LIBL';
QFLDL@ = 1;
QFIEL@ = '1';
CALLP(E) QSNDDTAQ ( QNAME@ : QLIBR@ : QFLDL@ : QFIEL@ );
*IN90 = %ERROR;
QNAME@ = 'DQJUA';
QLIBR@ = '*LIBL';
QFLDL@ = 1;
QFIEL@ = '1';
CALLP(E) QSNDDTAQ ( QNAME@ : QLIBR@ : QFLDL@ : QFIEL@ );
*IN90 = %ERROR;
QNAME@ = 'DQJUB';
QLIBR@ = '*LIBL';
QFLDL@ = 1;
QFIEL@ = '1';
CALLP(E) QSNDDTAQ ( QNAME@ : QLIBR@ : QFLDL@ : QFIEL@ );
*IN90 = %ERROR;
Barbara Hines
Phone: 330.343.4283 Ext. 8251
Email: bhines@xxxxxxxxxxxxxxxxx
-----Original Message-----
From: MAPICS-L <mapics-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Barb Hines
Sent: Friday, January 21, 2022 3:34 PM
To: MAPICS ERP System Discussion <mapics-l@xxxxxxxxxxxxxxxxxx>
Subject: [External] Re: [MAPICS-L] [External] Inventory Transaction Data Queue
Process AMJUA - PMC PCC TRANSACTION UPDATE
PGM
DCL VAR(&DTAQ) TYPE(*CHAR) LEN(10) VALUE('DQJUA')
DCL VAR(&LEN) TYPE(*DEC) LEN(5 0) VALUE(1)
CALL PGM(QSNDDTAQ) PARM(&DTAQ '*LIBL' &LEN '1')
ENDPGM
Process AMJUB - PMC IM/REP TRAN UPDATE
PGM
DCL VAR(&DTAQ) TYPE(*CHAR) LEN(10) VALUE('DQJUB')
DCL VAR(&LEN) TYPE(*DEC) LEN(5 0) VALUE(1)
CALL PGM(QSNDDTAQ) PARM(&DTAQ '*LIBL' &LEN '1')
ENDPGM
Process AMJUC - PMC IM/REP TRANSACTION UPDATE
PGM
DCL VAR(&DTAQ) TYPE(*CHAR) LEN(10) VALUE('DQJUC')
DCL VAR(&LEN) TYPE(*DEC) LEN(5 0) VALUE(1)
CALL PGM(QSNDDTAQ) PARM(&DTAQ '*LIBL' &LEN '1')
ENDPGM
-----Original Message-----
From: MAPICS-L <mapics-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Wil Ramos
Sent: Thursday, January 20, 2022 2:19 PM
To: MAPICS ERP System Discussion <mapics-l@xxxxxxxxxxxxxxxxxx>
Subject: [External] [MAPICS-L] Inventory Transaction Data Queue
How do you force the data queue to run in a program? I've done this a long time ago but could not remember. I do remember that I have to call the DQJUA program.
I would appreciate if you can someone send me a sample code I can use to make this happen?
Thank you
'Think Before You Click'
Wil
--
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a message email: MAPICS-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2flists.midrange.com%2fmailman%2flistinfo%2fmapics-l&c=E,1,UrM_zkkknIXLwxAERuYouSKgifvrWIjXVtNDj2xx6o9_LFrstz_KFbgyEc4bTPpBGVCfQ-DkP0WHKN14yFa-Wb1sF66i384a71k1GKEuDw,,&typo=1
or email: MAPICS-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2farchive.midrange.com%2fmapics-l.&c=E,1,oYm7QLPpJXgRyGUbPfD9dg-6O_P4ruaTBJ0aJuu2pftVWUVj6HiqDkzju4fANYq3O2acY-XC5uYdJUGNHVEagpEFdmB5d4axJIaOMHyTmKE,&typo=1
--
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a message email: MAPICS-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2flists.midrange.com%2fmailman%2flistinfo%2fmapics-l&c=E,1,jSZrsziQMSvyAYoj4IuzD2dx2ivaspUK9OMJ1FY3ajMqgxxWXyocZ4Rek1p8yV1HVJrSx274iqnjIsxICaRPkiTvdmNbMY08RFmE-7SKsg,,&typo=1
or email: MAPICS-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2farchive.midrange.com%2fmapics-l.&c=E,1,zbkXepx8OPIUqBKiEjF99Fkk6zIUZ99ZTNV9DCaV5KlIeEUBMxjwAUSwkcqsVZBqE3D1KkE2Ewt6XcsnI9jKWfn6nnmWYierx_OfLmQTn1ydDqXTeZicfcvf_g,,&typo=1
midrange.com
