midrange.com code scratchpad
Name:
MATPGMNAME
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
11/07/2011 07:56:21 pm
IP:
Logged
Description:
Retrieve a program's name and library
Code:
  1. /*                                                                */
  2. /*                             \\\\\\\                            */
  3. /*                            ( o   o )                           */
  4. /*------------------------oOO----(_)----OOo-----------------------*/
  5. /*                                                                */
  6. /*   Program :      MATPGMNAME                                    */
  7. /*   System  :      iSeries 400                                   */
  8. /*   Author  :      Herman Van der Staey                          */
  9. /*   Description :  Materialize Program Name                      */
  10. /*                                                                */
  11. /*                     ooooO              Ooooo                   */
  12. /*                     (    )             (    )                  */
  13. /*----------------------(   )-------------(   )-------------------*/
  14. /*                       (_)               (_)                    */
  15. /*                                                                */
  16. /*                                                                */
  17. /*   To compile :                                                 */
  18. /*         The source type must be "CLLE"   (and not CLP).        */
  19. /*         Compile with STRPDM option 14 or use the               */
  20. /*         CRTBNDCL command.                                      */
  21. /*                                                                */
  22.  
  23. MATPGMNAME: PGM
  24.  
  25.             DCL        VAR(&PGMNAME) TYPE(*CHAR) LEN(10)
  26.             DCL        VAR(&LIBNAME) TYPE(*CHAR) LEN(10)
  27.             DCL        VAR(&BUFFER) TYPE(*CHAR) LEN(80)
  28.  
  29.             CHGVAR     VAR(%BIN(&BUFFER 1 4)) VALUE(80)
  30.             CHGVAR     VAR(%BIN(&BUFFER 5 4)) VALUE(80)
  31.             CHGVAR     VAR(%BIN(&BUFFER 9 4)) VALUE(0)
  32.             CHGVAR     VAR(%BIN(&BUFFER 13 4)) VALUE(0)
  33.  
  34.             CALLPRC    PRC('_MATPGMNM') PARM(&BUFFER)
  35.  
  36.             CHGVAR     VAR(&PGMNAME) VALUE(%SST(&BUFFER 51 10))
  37.             CHGVAR     VAR(&LIBNAME) VALUE(%SST(&BUFFER 19 10))
  38.  
  39.             SNDPGMMSG  MSG('The program name is ' *CAT &PGMNAME +
  40.                          *BCAT 'in library ' *CAT &LIBNAME)
  41.  
  42.             ENDPGM
  43.  
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css