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:
- /* */
- /* \\\\\\\ */
- /* ( o o ) */
- /*------------------------oOO----(_)----OOo-----------------------*/
- /* */
- /* Program : MATPGMNAME */
- /* System : iSeries 400 */
- /* Author : Herman Van der Staey */
- /* Description : Materialize Program Name */
- /* */
- /* ooooO Ooooo */
- /* ( ) ( ) */
- /*----------------------( )-------------( )-------------------*/
- /* (_) (_) */
- /* */
- /* */
- /* To compile : */
- /* The source type must be "CLLE" (and not CLP). */
- /* Compile with STRPDM option 14 or use the */
- /* CRTBNDCL command. */
- /* */
-
- MATPGMNAME: PGM
-
- DCL VAR(&PGMNAME) TYPE(*CHAR) LEN(10)
- DCL VAR(&LIBNAME) TYPE(*CHAR) LEN(10)
- DCL VAR(&BUFFER) TYPE(*CHAR) LEN(80)
-
- CHGVAR VAR(%BIN(&BUFFER 1 4)) VALUE(80)
- CHGVAR VAR(%BIN(&BUFFER 5 4)) VALUE(80)
- CHGVAR VAR(%BIN(&BUFFER 9 4)) VALUE(0)
- CHGVAR VAR(%BIN(&BUFFER 13 4)) VALUE(0)
-
- CALLPRC PRC('_MATPGMNM') PARM(&BUFFER)
-
- CHGVAR VAR(&PGMNAME) VALUE(%SST(&BUFFER 51 10))
- CHGVAR VAR(&LIBNAME) VALUE(%SST(&BUFFER 19 10))
-
- SNDPGMMSG MSG('The program name is ' *CAT &PGMNAME +
- *BCAT 'in library ' *CAT &LIBNAME)
-
- ENDPGM
-
|
|
|