Re: [External] Re: [External] Inventory Transaction Data Queue
Wil Ramos <[email protected]> Fri, 21 Jan 2022 21:23:54 +0000
| Newsgroups | gmane.comp.systems.as400.mapics |
|---|---|
| Message-ID | <BY5PR10MB37643821A43DDAEB306FD90E815B9@BY5PR10MB3764.namprd10.prod.outlook.com> |
Thank you. 'Think Before You Click' =A0 Wil Ramos IT Manager Skurka Aerospace Inc. 4600 Calle Bolero Camarillo, CA. 93012 Tel: 805-484-8884 ext. 237 Fax: 805-437-4057 This electronic message transmission is intended only for the use of the pa= rty to which it is addressed, including any attachments, contains informati= on from Skurka Aerospace Inc., which may be privileged, confidential,=A0or = protected by law.=A0 If you are not the intended recipient you are hereby n= otified that any dissemination, copying or distribution of this e-mail or i= ts contents is=A0strictly prohibited.=A0 If you have received this message = in error, please notify us immediately by replying to the message and delet= ing it from your computer. -----Original Message----- From: MAPICS-L <mapics-l-bounces-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org> On Behalf Of Barb Hines Sent: Friday, January 21, 2022 12:59 PM To: MAPICS ERP System Discussion <[email protected]> Subject: Re: [MAPICS-L] [External] Re: [External] Inventory Transaction Dat= a Queue If you don't want a CLP, here's how we do it in a program: QNAME@ =3D 'DQJUC'; = QLIBR@ =3D '*LIBL'; = QFLDL@ =3D 1; = QFIEL@ =3D '1'; = CALLP(E) QSNDDTAQ ( QNAME@ : QLIBR@ : QFLDL@ : QFIEL@ ); = *IN90 =3D %ERROR; = = QNAME@ =3D 'DQJUA'; = QLIBR@ =3D '*LIBL'; = QFLDL@ =3D 1; = QFIEL@ =3D '1'; = CALLP(E) QSNDDTAQ ( QNAME@ : QLIBR@ : QFLDL@ : QFIEL@ ); = *IN90 =3D %ERROR; = = QNAME@ =3D 'DQJUB'; = QLIBR@ =3D '*LIBL'; = QFLDL@ =3D 1; = QFIEL@ =3D '1'; = CALLP(E) QSNDDTAQ ( QNAME@ : QLIBR@ : QFLDL@ : QFIEL@ ); = *IN90 =3D %ERROR; = Barbara Hines =A0 =A0 Phone:=A0330.343.4283=A0Ext.=A08251 Email:=A0 bhines-9lM15Z0VR04AUIqCBpNi1wC/[email protected] = -----Original Message----- From: MAPICS-L <mapics-l-bounces-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org> On Behalf Of Barb Hines Sent: Friday, January 21, 2022 3:34 PM To: MAPICS ERP System Discussion <[email protected]> Subject: [External] Re: [MAPICS-L] [External] Inventory Transaction Data Qu= eue 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-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org> On Behalf Of Wil Ramos Sent: Thursday, January 20, 2022 2:19 PM To: MAPICS ERP System Discussion <[email protected]> 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 DQ= JUA program. I would appreciate if you can someone send me a sample code I can use to ma= ke this happen? Thank you 'Think Before You Click' =A0 Wil -- This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a = message email: [email protected] To subscribe, unsubscribe, or ch= ange list options, visit: https://linkprotect.cudasvc.com/url?a=3Dhttps%3a%2f%2flists.midrange= .com%2fmailman%2flistinfo%2fmapics-l&c=3DE,1,UrM_zkkknIXLwxAERuYouSKgifvrWI= jXVtNDj2xx6o9_LFrstz_KFbgyEc4bTPpBGVCfQ-DkP0WHKN14yFa-Wb1sF66i384a71k1GKEuD= w,,&typo=3D1 or email: MAPICS-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org Before posting, please take a moment to review the archives at https://link= protect.cudasvc.com/url?a=3Dhttps%3a%2f%2farchive.midrange.com%2fmapics-l.&= c=3DE,1,oYm7QLPpJXgRyGUbPfD9dg-6O_P4ruaTBJ0aJuu2pftVWUVj6HiqDkzju4fANYq3O2a= cY-XC5uYdJUGNHVEagpEFdmB5d4axJIaOMHyTmKE,&typo=3D1 -- This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a = message email: [email protected] To subscribe, unsubscribe, or ch= ange list options, visit: https://linkprotect.cudasvc.com/url?a=3Dhttps%3a%2f%2flists.midrange= .com%2fmailman%2flistinfo%2fmapics-l&c=3DE,1,jSZrsziQMSvyAYoj4IuzD2dx2ivasp= UK9OMJ1FY3ajMqgxxWXyocZ4Rek1p8yV1HVJrSx274iqnjIsxICaRPkiTvdmNbMY08RFmE-7SKs= g,,&typo=3D1 or email: MAPICS-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org Before posting, please take a moment to review the archives at https://link= protect.cudasvc.com/url?a=3Dhttps%3a%2f%2farchive.midrange.com%2fmapics-l.&= c=3DE,1,zbkXepx8OPIUqBKiEjF99Fkk6zIUZ99ZTNV9DCaV5KlIeEUBMxjwAUSwkcqsVZBqE3D= 1KkE2Ewt6XcsnI9jKWfn6nnmWYierx_OfLmQTn1ydDqXTeZicfcvf_g,,&typo=3D1 -- This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a = message email: [email protected] To subscribe, unsubscribe, or ch= ange list options, visit: https://lists.midrange.com/mailman/listinfo/mapics-l or email: MAPICS-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org Before posting, please take a moment to review the archives at https://arch= ive.midrange.com/mapics-l. -- = This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post a message email: [email protected] To subscribe, unsubscribe, or change list options, visit: https://lists.midrange.com/mailman/listinfo/mapics-l or email: MAPICS-L-request-+hD5IHI5Xscn3HwCXmMcX9BPR1lH4CV8@public.gmane.org Before posting, please take a moment to review the archives at https://archive.midrange.com/mapics-l.