Answer Posted / syam

A service program is a collection of runnable procedures
and available data items easily and directly accessible by
other ILE programs or service programs. In many respects, a
service program is similar to a subroutine library or
procedure library.
Once we have the binder language we want to use in a source
member,it is compiled at the time we create the service
program Create Service Program (CRTSRVPGM).

Binder language is stored in physical file members, like
RPG, CL, and DDS source code.

CUSTPROCS service program Source member type BND
example.

STRPGMEXP PGMLVL(*CURRENT)
EXPORT SYMBOL(GetCustInfo)
EXPORT SYMBOL(SearchByPhone)
EXPORT SYMBOL(ValidCust)
ENDPGMEXP

Signature in Binder

Hard-Coded Signature Values:

One way a hard-coded signature can be used to our advantage
is to put some meaningful information into the signature
for documentation purposes.
for example: the date, the time, or other usefulinformation
about the new version of the service program.

STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('CUSTPROCS19SEP07')
EXPORT SYMBOL(GetCustInfo)
EXPORT SYMBOL(SearchByPhone)
EXPORT SYMBOL(ValidCust)
ENDPGMEXP

what is a non-join logical file?

1320

---

difference between view and index ?

914

---

what is subfile?

1225

---

What is binder language ?

1660

---

WHICH REPLY CODE IS USED BT sftp ? ... (e.g.226 is used by FTP IF FILE IS TRANSFERED)

1911

---

can a join logical file be updated?

779

---

what is the purpose of ovrdta (override data) keyword?

1416

---

define subsystem?

1298

---

what is cab?

859

---

I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into.

3257

---

how to write *pssr ?

831

---

Write a logic program for knowing the repeated number of a vowels in a given program?

3519

---

what is the use of data structures?

865

---

what is a physical file?

1333

---

what is the syntax for plist?

848

---