midrange.com code scratchpad
Name:
RTVDTAQD - Retrieve Data Queue Description with API QMHQRDQD
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
09/16/2013 08:30:16 am
IP:
Logged
Description:
Command processing program -- RTVDTAQD
Help group -- RTVDTAQDH
Command -- RTVDTAQD
Code:
  1. /*-------------------------------------------------------------------*/
  2. /*                                                                   */
  3. /*  Program . . : RTVDTAQD CPP                                       */
  4. /*  Description : Retrieve data queue description                    */
  5. /*  Author  . . : Vengoal Chang                                      */
  6. /*  Published . : AS400ePaper                                        */
  7. /*  Date  . . . : September 11,2013                                  */
  8. /*  Date Changed: September 16,2013 add parameter RclTime            */
  9. /*                                                                   */
  10. /*  Program function:  RTVDTAQD   command processing program         */
  11. /*                                                                   */
  12. /*                                                                   */
  13. /*  Program summary                                                  */
  14. /*  ---------------                                                  */
  15. /*                                                                   */
  16. /*  Work management APIs:                                            */
  17. /*    QMHQRDQD       Retrieve data queue description                 */
  18. /*                                                                   */
  19. /*    QWCCVTDT       Convert Date and Time Format                    */
  20. /*                                                                   */
  21. /*  Compile options:                                                 */
  22. /*    CrtClPgm   Pgm( RTVDTAQD )                                     */
  23. /*               SrcFile( QCLSRC )                                   */
  24. /*               SrcMbr( *PGM )                                      */
  25. /*                                                                   */
  26. /*-------------------------------------------------------------------*/
  27.     Pgm   ( &FullDtaQ             +
  28.             &RtnLib               +
  29.             &Type                 +
  30.             &MaxLen               +
  31.             &Force                +
  32.             &Seq                  +
  33.             &KeyLen               +
  34.             &SndrId               +
  35.             &MaxEntSpc            +
  36.             &MaxNbrEnt            +
  37.             &InlNbrEnt            +
  38.             &AutoRcl              +
  39.             &Text                 +
  40.             &CurNbrAlc            +
  41.             &NbrOfEnt             +
  42.             &EnFrcLock            +
  43.             &RclTime              +
  44.             &RmtDtaq              +
  45.             &RmtDtaqL             +
  46.             &RmtLocName           +
  47.             &Dev                  +
  48.             &LclLocName           +
  49.             &Mode                 +
  50.             &RmtNetId             +
  51.             &RmtDbName            +
  52.           )
  53.  
  54.     Dcl   &FullDtaq   *Char    20
  55.     Dcl   &Dtaq       *Char    10
  56.     Dcl   &Lib        *Char    10
  57.     Dcl   &RtnLib     *Char    10
  58.     Dcl   &RtnLibp    *Char    10
  59.     Dcl   &Type       *Char     4
  60.     Dcl   &Typep      *Char     4
  61.     Dcl   &MaxLen     *Dec    ( 5 0 )
  62.     Dcl   &MaxLenp    *Dec    ( 5 0 )
  63.     Dcl   &Force      *Char     4
  64.     Dcl   &Forcep     *Char     4
  65.     Dcl   &Seq        *Char     6
  66.     Dcl   &Seqp       *Char     6
  67.     Dcl   &KeyLen     *Dec    ( 5 0 )
  68.     Dcl   &KeyLenp    *Dec    ( 5 0 )
  69.     Dcl   &SndrId     *Char     4
  70.     Dcl   &SndrIdp    *Char     4
  71.     Dcl   &NbrOfEnt   *Dec    ( 9 0 )
  72.     Dcl   &NbrOfEntp  *Dec    ( 9 0 )
  73.     Dcl   &CurNbrAlc  *Dec    ( 9 0 )
  74.     Dcl   &CurNbrAlcp *Dec    ( 9 0 )
  75.     Dcl   &MaxNbrEntp *Dec    ( 9 0 )
  76.     Dcl   &MaxNbrEnt  *Dec    ( 9 0 )
  77.     Dcl   &InlNbrEntp *Dec    ( 9 0 )
  78.     Dcl   &InlNbrEnt  *Dec    ( 9 0 )
  79.     Dcl   &MaxEntSpcp *Dec    ( 9 0 )
  80.     Dcl   &MaxEntSpc  *Char     9
  81.     Dcl   &AutoRcl    *Char     4
  82.     Dcl   &AutoRclp   *Char     4
  83.     Dcl   &EnFrcLock  *Char     4
  84.     Dcl   &EnFrcLockp *Char     4
  85.     Dcl   &Text       *Char    50
  86.     Dcl   &Textp      *Char    50
  87.     Dcl   &RclTime    *Char    20
  88.     Dcl   &RclTimep   *Char    20
  89.     Dcl   &Textp      *Char    50
  90.     Dcl   &DtsNULL    *Char     8     X'0000000000000000'
  91.     Dcl   &RclDts     *Char     8
  92.  
  93. /* Format RDQD0200 fields */
  94.     Dcl   &RmtDtaq    *Char    10
  95.     Dcl   &RmtDtaqp   *Char    10
  96.     Dcl   &RmtDtaqL   *Char    10
  97.     Dcl   &RmtDtaqLp  *Char    10
  98.     Dcl   &RmtLocName *Char     8
  99.     Dcl   &RmtLocNamp *Char     8
  100.     Dcl   &Dev        *Char    10
  101.     Dcl   &Devp       *Char    10
  102.     Dcl   &LclLocName *Char     8
  103.     Dcl   &LclLocNamp *Char     8
  104.     Dcl   &Mode       *Char     8
  105.     Dcl   &Modep      *Char     8
  106.     Dcl   &RmtNetId   *Char     8
  107.     Dcl   &RmtNetIdp  *Char     8
  108.     Dcl   &RmtDbName  *Char    18
  109.     Dcl   &RmtDbNamep *Char    18
  110.  
  111.     Dcl   &RcvR       *Char   120
  112.     Dcl   &RcvRLen    *Char     4
  113.  
  114.     MonMsg     CPF0000       *N    GoTo Error
  115.  
  116.     ChgVar     &Dtaq         %SST( &FullDtaq  1 10 )
  117.     ChgVar     &Lib          %SST( &FullDtaq 11 10 )
  118.     ChkObj     Obj(&Lib/&Dtaq) ObjType(*Dtaq)
  119.     IF  (( &Lib *EQ '*LIBL' )    *OR +
  120.          ( &Lib *EQ '*CURLIB' ))   Do
  121.     RtvObjD    Obj(&Lib/&Dtaq) ObjType(*DTAQ) RtnLib(&LIB)
  122.     EndDo
  123.  
  124.     ChgVar     %BIN( &RcvrLen 1 4 )  120
  125.  
  126. /* Get format RDQD0100 fields */
  127.     Call       QMHQRDQD    ( &RcvR                    +
  128.                              &RcvRLen                 +
  129.                              RDQD0100                 +
  130.                              &FullDtaq                +
  131.                            )
  132.  
  133.     ChgVar     &MaxLenp      %BIN( &Rcvr 9 4 )
  134.  
  135.     If  ( %SST(&RcvR 17 1) *EQ 'K' ) DO
  136.     ChgVar     &KeyLenp      %BIN( &RcvR 13 4 )
  137.     ChgVar     &Seqp         '*KEYED'
  138.     EndDo
  139.  
  140.     Else Do
  141.     If  ( %SST(&RcvR 17 1) *EQ 'L' )   +
  142.     ChgVar     &Seqp         '*LIFO'
  143.     Else                               +
  144.     ChgVar     &Seqp         '*FIFO'
  145.     EndDo
  146.  
  147.     If  ( %SST(&RcvR 18 1) *EQ 'N' )   +
  148.           ChgVar &SndrIdp '*NO'
  149.     Else Do
  150.     If  ( %SST(&RcvR 18 1) *EQ 'Y' )   +
  151.           ChgVar &SndrIdp '*YES'
  152.     EndDo
  153.  
  154.     If  ( %SST(&RcvR 19 1) *EQ 'N' )   +
  155.           ChgVar &Forcep  '*NO'
  156.     Else Do
  157.     If  ( %SST(&RcvR 19 1) *EQ 'Y' )   +
  158.           ChgVar &Forcep  '*YES'
  159.     EndDo
  160.  
  161.     If  ( %SST(&RcvR 70 1) *EQ '0' )   +
  162.           ChgVar &Typep   '*STD'
  163.     Else                               +
  164.           ChgVar &Typep   '*DDM'
  165.  
  166.     If  ( %SST(&RcvR 71 1) *EQ '0' )   +
  167.           ChgVar &AutoRclp '*NO'
  168.     Else Do
  169.     If  ( %SST(&RcvR 71 1) *EQ '1' )   +
  170.           ChgVar &AutoRclp '*YES'
  171.     EndDo
  172.  
  173.     If  ( %SST(&RcvR 72 1) *EQ '0' )   +
  174.           ChgVar &EnFrcLockp '*NO'
  175.     Else Do
  176.     If  ( %SST(&RcvR 72 1) *EQ '1' )   +
  177.           ChgVar &EnFrcLockp '*YES'
  178.     EndDo
  179.  
  180.     ChgVar     &NbrOfEntp  %BIN( &RcvR  73  4 )
  181.     ChgVar     &CurNbrAlcp %BIN( &RcvR  77  4 )
  182.     ChgVar     &MaxNbrEntp %BIN( &RcvR 101  4 )
  183.     ChgVar     &InlNbrEntp %BIN( &RcvR 105  4 )
  184.     ChgVar     &Textp      %SST( &RCVR  20 50 )
  185.     ChgVar     &MaxEntSpcp %BIN( &RcvR 109  4 )
  186.  
  187.     If       ( &MaxEntSpcp *EQ -1 ) Do
  188.     ChgVar     &MaxEntSpc  '*MAX16MB'
  189.     MonMsg     MsgId(MCH3601)
  190.     EndDo
  191.     Else Do
  192.     If       ( &MaxEntSpcp *EQ -2 ) Do
  193.     ChgVar     &MaxEntSpc  '*MAX2GB'
  194.     MonMsg     MsgId(MCH3601)
  195.     EndDo
  196.     EndDo
  197.     If       ( &MaxEntSpcp *EQ  0 ) Do
  198.     ChgVar     &MaxEntSpc  ' '
  199.     MonMsg     MsgId(MCH3601)
  200.     EndDo
  201.  
  202.     ChgVar     &RclDts       %SST(&RCVR 113 8)
  203.     If (&RclDts *NE &DtsNull) Do
  204.     Call       QWCCVTDT    ( '*DTS'             +
  205.                               &RclDts            +
  206.                               '*YYMD'            +
  207.                               &RclTimep          +
  208.                               x'00000000'        +
  209.                            )
  210.     EndDo
  211.  
  212.     ChgVar     &RtnLib       &Lib
  213.     MonMsg     MsgId(MCH3601)
  214.     ChgVar     &Type         &Typep
  215.     MonMsg     MsgId(MCH3601)
  216.     ChgVar     &MaxLen       &MaxLenp
  217.     MonMsg     MsgId(MCH3601)
  218.     ChgVar     &Force        &Forcep
  219.     MonMsg     MsgId(MCH3601)
  220.     ChgVar     &Seq          &Seqp
  221.     MonMsg     MsgId(MCH3601)
  222.     ChgVar     &KeyLen       &KeyLenp
  223.     MonMsg     MsgId(MCH3601)
  224.     ChgVar     &SndrId       &SndrIdp
  225.     MonMsg     MsgId(MCH3601)
  226.     ChgVar     &MaxNbrEnt    &MaxNbrEntp
  227.     MonMsg     MsgId(MCH3601)
  228.     ChgVar     &InlNbrEnt    &InlNbrEntp
  229.     MonMsg     MsgId(MCH3601)
  230.     ChgVar     &AutoRCL      &AutoRCLp
  231.     MonMsg     MsgId(MCH3601)
  232.     ChgVar     &Text         &Textp
  233.     MonMsg     MsgId(MCH3601)
  234.     ChgVar     &NbrOfEnt     &NbrOfEntp
  235.     MonMsg     MsgId(MCH3601)
  236.     ChgVar     &CurNbrAlc    &CurNbrAlcp
  237.     MonMsg     MsgId(MCH3601)
  238.     ChgVar     &EnFrcLock    &EnFrcLockp
  239.     MonMsg     MsgId(MCH3601)
  240.     ChgVar     &RclTime      &RclTimep
  241.     MonMsg     MsgId(MCH3601)
  242.  
  243.     If (&Type *EQ '*DDM') Do
  244. /* Get format RDQD0200 fields */
  245.     ChgVar     &RcvR         *BLANKS
  246.     ChgVar     %BIN( &RcvrLen 1 4 )  120
  247.     Call       QMHQRDQD    ( &RcvR                    +
  248.                              &RcvRLen                 +
  249.                              RDQD0200                 +
  250.                              &FullDtaq                +
  251.                            )
  252.  
  253.     ChgVar     &RmtDtaqp   %SST( &RCVR  51 10 )
  254.     ChgVar     &RmtDtaqLp  %SST( &RCVR  61 10 )
  255.     ChgVar     &RmtLocNamp %SST( &RCVR  27  8 )
  256.     ChgVar     &Devp       %SST( &RCVR   9 10 )
  257.     ChgVar     &LclLocNamp %SST( &RCVR  35  8 )
  258.     ChgVar     &Modep      %SST( &RCVR  19  8 )
  259.     ChgVar     &RmtNetIdp  %SST( &RCVR  43  8 )
  260.     ChgVar     &RmtDbNamep %SST( &RCVR  91 18 )
  261.  
  262.     ChgVar     &RmtDtaq    &RmtDtaqp
  263.     MonMsg     MsgId(MCH3601)
  264.     ChgVar     &RmtDtaqL   &RmtDtaqLp
  265.     MonMsg     MsgId(MCH3601)
  266.     ChgVar     &RmtLocName &RmtLocNamp
  267.     MonMsg     MsgId(MCH3601)
  268.     ChgVar     &Dev        &Devp
  269.     MonMsg     MsgId(MCH3601)
  270.     ChgVar     &LclLocName &LclLocNamp
  271.     MonMsg     MsgId(MCH3601)
  272.     ChgVar     &Mode       &Modep
  273.     MonMsg     MsgId(MCH3601)
  274.     ChgVar     &RmtNetId   &RmtNetIdp
  275.     MonMsg     MsgId(MCH3601)
  276.     ChgVar     &RmtDbName  &RmtDbNamep
  277.     MonMsg     MsgId(MCH3601)
  278.  
  279.     EndDo
  280.  
  281.     Return
  282.  
  283. Error:
  284.     Call       QMHMOVPM    ( '    '                   +
  285.                              '*DIAG'                  +
  286.                              x'00000001'              +
  287.                              '*PGMBDY'                +
  288.                              x'00000001'              +
  289.                              x'0000000800000000'      +
  290.                            )
  291.  
  292.     Call       QMHRSNEM    ( '    '                   +
  293.                               x'0000000800000000'     +
  294.                            )
  295.  
  296. EndPgm:
  297.     EndPgm
  298.  
  299.  
  300. .*-----------------------------------------------------------------------**
  301. .*
  302. .*  Compile options:
  303. .*
  304. .*    CrtPnlGrp PnlGrp( RTVDTAQDH )
  305. .*              SrcFile( QPNLSRC )
  306. .*              SrcMbr( *PNLGRP )
  307. .*
  308. .*-----------------------------------------------------------------------**
  309. :PNLGRP.
  310. :HELP NAME='RTVDTAQD'.Retrieve Data Queue Desc - Help
  311. :P.
  312. The Retrieve Data Queue Desc (RTVDTAQD) command returns information
  313. about specified data queue description.
  314. :P.
  315. The data queue description retrieved with API QMHQRDQD format RDQD0100
  316. and RDQD0200.
  317. :P.
  318. :EHELP.
  319. :HELP NAME='RTVDTAQD/DTAQ'.Data queue(DTAQ) - Help
  320. :XH3.Data queue(DTAQ)
  321. :P.
  322. Specifies which data queue whose description should be returned.
  323. :EHELP.
  324. :HELP NAME='RTVDTAQD/RTNLIB'.CL var for RTNLIB       (10) (RTNLIB) - Help
  325. :XH3.CL var for RTNLIB       (10) (RTNLIB)
  326. :P.
  327. Specifies a 10-character variable used to return the name of the library
  328. that contains the object.
  329. :P.
  330. In CL programs, this should be a 10-character variable.
  331. :P.
  332. :EHELP.
  333. :HELP NAME='RTVDTAQD/TYPE'.CL var for TYPE          (4) (TYPE) - Help
  334. :XH3.CL var for TYPE          (4) (TYPE)
  335. :P.
  336. Specifies the name of a variable used to retrieve the data queue type.
  337. :P.
  338. In CL programs, this should be a 4-character variable.
  339. :P.
  340. Possible return values:
  341. :DL.
  342. :DT.'*STD':DD.Local data queue.
  343. :DT.'*DDM':DD.Remote data queue.
  344. :EDL.
  345. :EHELP.
  346. :HELP NAME='RTVDTAQD/MAXLEN'.CL var for MAXLEN    (5 0) (MAXLEN) - Help
  347. :XH3.CL var for MAXLEN      (5 0) (MAXLEN)
  348. :P.
  349. Specifies the name of a variable used to retrieve the maximum entry length.
  350. :P.
  351. In CL programs, this should be a 5-position decimal variable.
  352. :P.
  353. :EHELP.
  354. :HELP NAME='RTVDTAQD/FORCE'.CL var for FORCE         (4) (FORCE) - Help
  355. :XH3.CL var for FORCE         (4) (FORCE)
  356. :P.
  357. Specifies the name of a variable used to retrieve whether force to auxiliary
  358. storage or not.
  359. :P.
  360. In CL programs, this should be a 4-character variable.
  361. :P.
  362. Possible return values:
  363. :DL.
  364. :DT.'*YES':DD.Send and receive operations are immediately forced to storage.
  365. :DT.'*NO' :DD.Send and receive operations are not immediately forced to storage.
  366. :EDL.
  367. :EHELP.
  368. :HELP NAME='RTVDTAQD/SEQ'     .CL var for SEQ           (6) (SEQ) - Help
  369. :XH3.CL var for SEQ           (6) (SEQ)
  370. :P.
  371. Specifies the name of a variable used to retrieve the sequence in which
  372. entries are received from data queue.
  373. :P.
  374. In CL programs, this should be a 6-character variable.
  375. :P.
  376. Possible return values:
  377. :DL.
  378. :DT.'*FIFO':DD.
  379. :DT.'*LIFO':DD.
  380. :DT.'*KEYED':DD.
  381. :EDL.
  382. :EHELP.
  383. :HELP NAME='RTVDTAQD/KEYLEN'.CL var for KEYLEN    (5 0) (KEYLEN) - Help
  384. :XH3.CL var for KEYLEN      (5 0) (KEYLEN)
  385. :P.
  386. Specifies the name of a variable used to retrieve the number of
  387. characters in the key.
  388. :P.
  389. In CL programs, this should be a 5-position decimal variable.
  390. :P.
  391. :EHELP.
  392. :HELP NAME='RTVDTAQD/SENDERID'.CL var for SENDERID      (4) (SENDERID) - Help
  393. :XH3.CL var for SENDERID      (4) (SENDERID)
  394. :P.
  395. Specifies the name of a variable used to retrieve whether include sender ID
  396. or not.
  397. :P.
  398. In CL programs, this should be a 4-character variable.
  399. :P.
  400. Possible return values:
  401. :DL.
  402. :DT.'*YES':DD.
  403. :DT.'*NO' :DD.
  404. :EDL.
  405. :EHELP.
  406. :HELP NAME='RTVDTAQD/MAXENTSPC'.CL var for MAXENTSPC     (9) (MAXENTSPC)- Help
  407. :XH3.CL var for MAXENTSPC     (9) (MAXENTSPC)
  408. :P.
  409. Specifies the name of a variable used to retrieve the maximum number of
  410. entries specified in CRTDTAQ SIZE parameter.
  411. :P.
  412. In CL programs, this should be a 9-character variable.
  413. :P.
  414. Possible return values:
  415. :DL.
  416. :DT.'*MAX16MB':DD.
  417. :DT.'*MAX2GB':DD.
  418. :EDL.
  419. :EHELP.
  420. :HELP NAME='RTVDTAQD/MAXNBRENT'.CL var for MAXNBRENT   (9 0) (MAXNBRENT)- Help
  421. :XH3.CL var for MAXNBRENT   (9 0) (MAXNBRENT)
  422. :P.
  423. Specifies the name of a variable used to retrieve the maximum number of
  424. entries specified in CRTDTAQ SIZE parameter.
  425. :P.
  426. In CL programs, this should be a 9-position decimal variable.
  427. :P.
  428. :EHELP.
  429. :HELP NAME='RTVDTAQD/INLNBRENT'.CL var for INLNBRENT   (9 0) (INLNBRENT)- Help
  430. :XH3.CL var for INLNBRENT   (9 0) (INLNBRENT)
  431. :P.
  432. Specifies the name of a variable used to retrieve the initial number of
  433. entries specified in CRTDTAQ SIZE parameter.
  434. :P.
  435. In CL programs, this should be a 9-position decimal variable.
  436. :P.
  437. :EHELP.
  438. :HELP NAME='RTVDTAQD/AUTORCL'.CL var for AUTORCL       (4) (AUTORCL) - Help
  439. :XH3.CL var for AUTORCL       (4) (AUTORCL)
  440. :P.
  441. Specifies the name of a variable used to retrieve whether automatic reclaim
  442. or not.
  443. :P.
  444. In CL programs, this should be a 4-character variable.
  445. :P.
  446. Possible return values:
  447. :DL.
  448. :DT.'*YES':DD.
  449. :DT.'*NO' :DD.
  450. :EDL.
  451. :EHELP.
  452. :HELP NAME='RTVDTAQD/TEXT'.CL var for TEXT         (50) (TEXT) - Help
  453. :XH3.CL var for TEXT         (50) (TEXT)
  454. :P.
  455. Specifies the name of a variable used to retrieve the data queue
  456. text description.
  457. :P.
  458. In CL programs, this should be a 50-character variable.
  459. :EHELP.
  460. :HELP NAME='RTVDTAQD/NBROFALC'.CL var for NBROFALC    (9 0) (NBROFALC) - Help
  461. :XH3.CL var for NBROFALC    (9 0) (NBROFALC)
  462. :P.
  463. Specifies the name of a variable used to retrieve the number of entries
  464. currently allocated.
  465. :P.
  466. In CL programs, this should be a 9-position decimal variable.
  467. :P.
  468. :EHELP.
  469. :HELP NAME='RTVDTAQD/NBROFENT'.CL var for NBROFENT    (9 0) (NBROFENT) - Help
  470. :XH3.CL var for NBROFENT    (9 0) (NBROFENT)
  471. :P.
  472. Specifies the name of a variable used to retrieve the number of entries
  473. currently in the data queue.
  474. :P.
  475. In CL programs, this should be a 9-position decimal variable.
  476. :P.
  477. :EHELP.
  478. :HELP NAME='RTVDTAQD/ENFRCLOCK'.CL var for ENFRCLOCK     (4) (ENFRCLOCK) - Help
  479. :XH3.CL var for ENFRCLOCK     (4) (ENFRCLOCK)
  480. :P.
  481. An optional return  variable that will contain a *YES or *NO for whether
  482. an IBM supported data queue will enforce a lock. This value cannot be
  483. specified on CRTDTAQ.
  484. :P.
  485. In CL programs, this should be a 4-character variable.
  486. :P.
  487. Possible return values:
  488. :DL.
  489. :DT.'*YES':DD.
  490. :DT.'*NO' :DD.
  491. :EDL.
  492. :EHELP.
  493. :HELP NAME='RTVDTAQD/LASTRCLTIM'.CL var for LASTRCLTIM   (20) (LASTRCLTIM) - Help
  494. :XH3.CL var for LASTRCLTIM   (20) (LASTRCLTIM)
  495. :P.
  496. An optional return  variable that will contain last reclaim date and
  497. time with format YYYYMMDDHHmmSSsss.
  498. :P.
  499. In CL programs, this should be a 20-character variable.
  500. :P.
  501. :EHELP.
  502. :HELP NAME='RTVDTAQD/RMTDTAQ'.CL var for RMTDTAQ      (10) (RMTDTAQ) - Help
  503. :XH3.CL var for RMTDTAQ      (10) (RMTDTAQ)
  504. :P.
  505. An optional return variable that will contain. For TYPE(*STD) data queue,
  506. this field will be blank.
  507. :P.
  508. In CL programs, this should be a 10-character variable.
  509. :P.
  510. :EHELP.
  511. :HELP NAME='RTVDTAQD/RMTDTAQL'.CL var for RMTDTAQL     (10) (RMTDTAQL) - Help
  512. :XH3.CL var for RMTDTAQL     (10) (RMTDTAQL)
  513. :P.
  514. An optional return variable that will contain the name of the remote data
  515. queue library. For TYPE(*STD) data queue, this field will be blank.
  516. :P.
  517. In CL programs, this should be a 10-character variable.
  518. :P.
  519. :EHELP.
  520. :HELP NAME='RTVDTAQD/RMTLOCNAME'.CL var for RMTLOCNAME    (8) (RMTLOCNAME) - Help
  521. :XH3.CL var for RMTLOCNAME    (8) (RMTLOCNAME)
  522. :P.
  523. An optional return variable that will contain the name of the remote location
  524. name. For TYPE(*STD) data queue, this field will be blank.
  525. :P.
  526. In CL programs, this should be a 8-character variable.
  527. :P.
  528. :EHELP.
  529. :HELP NAME='RTVDTAQD/DEV'.CL var for DEV           (8) (DEV) - Help
  530. :XH3.CL var for DEV           (8) (DEV)
  531. :P.
  532. An optional return variable that will contain the name of the APPC device
  533. name. For TYPE(*STD) data queue, this field will be blank.
  534. :P.
  535. In CL programs, this should be a 8-character variable.
  536. :P.
  537. :EHELP.
  538. :HELP NAME='RTVDTAQD/LCLLOCNAME'.CL var for LCLLOCNAME    (8) (LCLLOCNAME) - Help
  539. :XH3.CL var for LCLLOCNAME    (8) (LCLLOCNAME)
  540. :P.
  541. An optional return variable that will contain the name of the local location
  542. name. For TYPE(*STD) data queue, this field will be blank.
  543. :P.
  544. In CL programs, this should be a 8-character variable.
  545. :P.
  546. :EHELP.
  547. :HELP NAME='RTVDTAQD/MODE'.CL var for MODE          (8) (MODE) - Help
  548. :XH3.CL var for MODE          (8) (MODE)
  549. :P.
  550. An optional return variable that will contain the mode.
  551. For TYPE(*STD) data queue, this field will be blank.
  552. :P.
  553. In CL programs, this should be a 8-character variable.
  554. :P.
  555. :EHELP.
  556. :HELP NAME='RTVDTAQD/RMTNETID'.CL var for RMTNETID      (8) (RMTNETID) - Help
  557. :XH3.CL var for RMTNETID      (8) (RMTNETID)
  558. :P.
  559. An optional return variable that will contain remote network identifier.
  560. For TYPE(*STD) data queue, this field will be blank.
  561. :P.
  562. In CL programs, this should be a 8-character variable.
  563. :P.
  564. :EHELP.
  565. :HELP NAME='RTVDTAQD/RMTDBNAME'.CL var for RMTDBNAME    (18) (RMTDBNAME) - Help
  566. :XH3.CL var for RMTDBNAME    (18) (RMTDBNAME)
  567. :P.
  568. An optional return variable that will contain remote database name.
  569. For TYPE(*STD) data queue, this field will be blank.
  570. :P.
  571. In CL programs, this should be a 18-character variable.
  572. :P.
  573. :EHELP.
  574. :EPNLGRP.
  575.  
  576.  
  577. /*  ===============================================================  */
  578. /*  = Command....... RTVDTAQD                                     =  */
  579. /*  = CPP........... RTVDTAQD CLP                                 =  */
  580. /*  =                                                             =  */
  581. /*  = Description...                                              =  */
  582. /*  =  Retrieve data queue description command retrieves the      =  */
  583. /*  =  attributes of a data queue (not the entries)               =  */
  584. /*  =  the API QMHQRDQD is used.                                  =  */
  585. /*  =                                                             =  */
  586. /*  = CrtCmd      Cmd( RtvDtaqD  )                                =  */
  587. /*  =             Pgm( RtvDtaqD   )                               =  */
  588. /*  =             SrcFile( YourSourceFile )                       =  */
  589. /*  =             Allow ( *Ipgm *Bpgm )                           =  */
  590. /*  =             HlpPnlGrp( RTVDTAQDH )                          =  */
  591. /*  =             HlpId( *CMD )                                   =  */
  592. /*  ===============================================================  */
  593. /*  = Date  : 2013/09/11                                          =  */
  594. /*  = Author: Vengoal Chang                                       =  */
  595. /*  ===============================================================  */
  596. /*  = Date modify: 2013/09/16 add parameter LASTRCLTIM            =  */
  597. /*  ===============================================================  */
  598.  
  599.              Cmd        Prompt( 'Rtv Data Queue Description' )
  600.  
  601.              Parm       Kwd( Dtaq )                                 +
  602.                         Type( Qual1 )                               +
  603.                         Min( 1 )                                    +
  604.                         Prompt('Data queue' )
  605.  
  606.              Parm       Kwd( RtnLib )                               +
  607.                         Type( *Char )                               +
  608.                         Len( 10 )                                   +
  609.                         Rtnval( *Yes )                              +
  610.                         Prompt( 'CL var for RTNLIB       (10) .' )
  611.  
  612. /*  ===============================================================  */
  613. /*  = Type  - Type of data queue                                  =  */
  614. /*  =         *STD, *DDM                                          =  */
  615. /*  ===============================================================  */
  616.              Parm       Kwd( Type )                                 +
  617.                         Type( *Char )                               +
  618.                         Len( 4 )                                    +
  619.                         Rtnval( *Yes )                              +
  620.                         Prompt( 'CL var for TYPE          (4) .' )
  621.  
  622. /*  ===============================================================  */
  623. /*  = MaxLen- Maximum entry length                                =  */
  624. /*  ===============================================================  */
  625.              Parm       Kwd( MaxLen )                               +
  626.                         Type( *Dec )                                +
  627.                         Len( 5 0 )                                  +
  628.                         Rtnval( *Yes )                              +
  629.                         Prompt( 'CL var for MAXLEN      (5 0) .' )
  630.  
  631. /*  ===============================================================  */
  632. /*  = Force - Force to auxiliary storage                          =  */
  633. /*  =         *YES, *NO                                           =  */
  634. /*  ===============================================================  */
  635.              Parm       Kwd( Force )                                +
  636.                         Type( *Char )                               +
  637.                         Len( 4 )                                    +
  638.                         Rtnval( *Yes )                              +
  639.                         Prompt( 'CL var for FORCE         (4) .' )
  640.  
  641. /*  ===============================================================  */
  642. /*  = Seq - *FIFO, *LIFO, *KEYED                                  =  */
  643. /*  ===============================================================  */
  644.              Parm       Kwd( Seq )                                  +
  645.                         Type( *Char )                               +
  646.                         Len( 6 )                                    +
  647.                         Rtnval( *Yes )                              +
  648.                         Prompt( 'CL var for SEQ           (6) .' )
  649. /*  ===============================================================  */
  650. /*  = KeyLen- Key length                                          =  */
  651. /*  ===============================================================  */
  652.              Parm       Kwd( KeyLen )                               +
  653.                         Type( *Dec )                                +
  654.                         Len( 5 0 )                                  +
  655.                         Rtnval( *Yes )                              +
  656.                         Prompt( 'CL var for KEYLEN      (5 0) .' )
  657. /*  ===============================================================  */
  658. /*  = SenderId - Include sender ID                                =  */
  659. /*  =            *YES, *NO                                        =  */
  660. /*  ===============================================================  */
  661.              Parm       Kwd( SenderId )                             +
  662.                         Type( *Char )                               +
  663.                         Len( 4 )                                    +
  664.                         Rtnval( *Yes )                              +
  665.                         Prompt( 'CL var for SENDERID      (4) .' )
  666. /*  ===============================================================  */
  667. /*  = MaxEntSpc- Maximum number of entries specified              =  */
  668. /*  =            *MAX16MB, *MAX2GB                                =  */
  669. /*  ===============================================================  */
  670.              Parm       Kwd( MaxEntSpc )                            +
  671.                         Type( *Char )                               +
  672.                         Len( 9 )                                    +
  673.                         Rtnval( *Yes )                              +
  674.                         Prompt( 'CL var for MAXENTSPC     (9) .' )
  675. /*  ===============================================================  */
  676. /*  = MaxNbrEnt- Maximum number of entries alloweded              =  */
  677. /*  ===============================================================  */
  678.              Parm       Kwd( MaxNbrEnt )                            +
  679.                         Type( *Dec )                                +
  680.                         Len( 9 0 )                                  +
  681.                         Rtnval( *Yes )                              +
  682.                         Prompt( 'CL var for MAXNBRENT   (9 0) .' )
  683. /*  ===============================================================  */
  684. /*  = InlNbrEnt- Initial number of entries                        =  */
  685. /*  ===============================================================  */
  686.              Parm       Kwd( InlNbrEnt )                            +
  687.                         Type( *Dec )                                +
  688.                         Len( 9 0 )                                  +
  689.                         Rtnval( *Yes )                              +
  690.                         Prompt( 'CL var for INLNBRENT   (9 0) .' )
  691. /*  ===============================================================  */
  692. /*  = AutoRcl  - Automatic Reclaim                                =  */
  693. /*  =            *YES, *NO                                        =  */
  694. /*  ===============================================================  */
  695.              Parm       Kwd( AutoRcl )                              +
  696.                         Type( *Char )                               +
  697.                         Len( 4 )                                    +
  698.                         Rtnval( *Yes )                              +
  699.                         Prompt( 'CL var for AUTORCL       (4) .' )
  700.  
  701.              Parm       Kwd( Text )                                 +
  702.                         Type( *Char )                               +
  703.                         Len( 50 )                                   +
  704.                         Rtnval( *Yes )                              +
  705.                         Prompt( 'CL var for TEXT         (50) .' )
  706. /*  ===============================================================  */
  707. /*  = NbrOfAlc - Number of entries currently allocated            =  */
  708. /*  ===============================================================  */
  709.              Parm       Kwd( NbrOfAlc )                             +
  710.                         Type( *Dec )                                +
  711.                         Len( 9 0 )                                  +
  712.                         Rtnval( *Yes )                              +
  713.                         Prompt( 'CL var for NBROFALC    (9 0) .' )
  714. /*  ===============================================================  */
  715. /*  = NbrOfMsg - Number of entries currently                      =  */
  716. /*  ===============================================================  */
  717.              Parm       Kwd( NbrOfEnt )                             +
  718.                         Type( *Dec )                                +
  719.                         Len( 9 0 )                                  +
  720.                         Rtnval( *Yes )                              +
  721.                         Prompt( 'CL var for NBROFENT    (9 0) .' )
  722. /*  ===============================================================  */
  723. /*  = EnFrcLock- Enforce lock                                     =  */
  724. /*  =            *YES, *NO                                        =  */
  725. /*  ===============================================================  */
  726.              Parm       Kwd( EnFrcLock )                            +
  727.                         Type( *Char )                               +
  728.                         Len( 4 )                                    +
  729.                         Rtnval( *Yes )                              +
  730.                         Prompt( 'CL var for ENFRCLOCK     (4) .' )
  731.  
  732. /*  ===============================================================  */
  733. /*  = LastRclTim - Last reclaim date and time                     =  */
  734. /*  ===============================================================  */
  735.              Parm       Kwd( LastRclTim )                           +
  736.                         Type( *Char )                               +
  737.                         Len( 20 )                                    +
  738.                         Rtnval( *Yes )                              +
  739.                         Prompt( 'CL var for LASTRCLTIM   (20) .' )
  740.  
  741.              Parm       Kwd( RmtDtaq )                              +
  742.                         Type( *Char )                               +
  743.                         Len( 10 )                                   +
  744.                         Rtnval( *Yes )                              +
  745.                         Prompt( 'CL var for RMTDTAQ      (10) .' )
  746.  
  747.              Parm       Kwd( RmtDtaqL )                             +
  748.                         Type( *Char )                               +
  749.                         Len( 10 )                                   +
  750.                         Rtnval( *Yes )                              +
  751.                         Prompt( 'CL var for RMTDTAQL     (10) .' )
  752.  
  753.              Parm       Kwd( RmtLocName )                           +
  754.                         Type( *Char )                               +
  755.                         Len( 8 )                                    +
  756.                         Rtnval( *Yes )                              +
  757.                         Prompt( 'CL var for RMTLOCNAME    (8) .' )
  758.  
  759.              Parm       Kwd( Dev )                                  +
  760.                         Type( *Char )                               +
  761.                         Len( 10 )                                   +
  762.                         Rtnval( *Yes )                              +
  763.                         Prompt( 'CL var for DEV          (10) .' )
  764.  
  765.              Parm       Kwd( LclLocName )                           +
  766.                         Type( *Char )                               +
  767.                         Len( 8 )                                    +
  768.                         Rtnval( *Yes )                              +
  769.                         Prompt( 'CL var for LCLLOCNAME    (8) .' )
  770.  
  771.              Parm       Kwd( Mode )                                 +
  772.                         Type( *Char )                               +
  773.                         Len( 8 )                                    +
  774.                         Rtnval( *Yes )                              +
  775.                         Prompt( 'CL var for MODE          (8) .' )
  776.  
  777.              Parm       Kwd( RmtNetId )                             +
  778.                         Type( *Char )                               +
  779.                         Len( 8 )                                    +
  780.                         Rtnval( *Yes )                              +
  781.                         Prompt( 'CL var for RMTNETID      (8) .' )
  782.  
  783.              Parm       Kwd( RmtDbName )                            +
  784.                         Type( *Char )                               +
  785.                         Len( 18 )                                   +
  786.                         Rtnval( *Yes )                              +
  787.                         Prompt( 'CL var for RMTDBNAME    (18) .' )
  788.  
  789.  Qual1:      Qual       Type( *Name )                               +
  790.                         Expr( *Yes )
  791.              Qual       Type( *Name )                               +
  792.                         Dft( *Libl )                                +
  793.                         Spcval(( *Libl ) ( *CurLib ))               +
  794.                         Expr( *Yes )                                +
  795.                         Prompt( 'Library' )
  796.  
© 2004-2019 by midrange.com generated in 0.012s valid xhtml & css