here is a sample code. each "file" has tow labels. one to signal from (to
create a base pointer) and the other for the extract routine. This way you
can add/remove lines from your program without recalculating locations. the
xloc pointer points to the signal command, so you should add the number of
lines of the extract code you have. this can be a subroutine, but it
demostrate the idea. I used a stop condition for the extruat loop. i
haven't tested this sample, just a demo. again, be careful and use rexx
like comments.
ITschak.
/* Rexx */
Sample:
Signal Sample.main
Sample.Doc:
/* sample self lcontained rexx */
Sample.main:
Call Extruct
Return
Extruct:
Call xPanel
Return
xpanel:
xLoc = sigl() + 14 /* use signl to find your location. */
j = 0
Do while j > 0
j = j + 1
xpnl.j = sourceline(xLoc+j)
if (Word(xpl.j,1) = "/*eop*/") then do
"EexecIO * DiskW ISPFLIB (Stem xpnl. finis") /* ISPFLIB pre
allocated */
j = 0 /* not relevant but a good prog. practice */
return
end
end
---put panel here---
/*eop*/
On Tue, Mar 14, 2017 at 6:02 PM, IronSphere by SecuriTeam Software <
[email protected]> wrote:
> Yes. I started thia thread few month ago. It was about a self extruct
> inataller containning xmt files.
> The idea is to use labels (this way you know your line number and can use
> siur eli e funcrion to retrieve the code (panels, msgs,etc.). Btw, you can
> use a single dataset as a target and libdef to all ispf librariea. Compling
> the code hide everything. Be carefull with qouts and comments which are
> different on panels and does need to be closed.
>
> If you need a sample email me.
>
> Best
>
> Itschak
>
> בתאריך 14 במרץ 2017 17:29, "John McKown" <[email protected]>
> כתב:
>
> I want to write an ISPF application which is self contained. I vaguely
> remembered that someone, sometime, said it is possible to "embed" the ISPF
> panels / message / et al in the REXX itself. The only thing that I've seen
> is more like an shell HERE document. This function basically creates a
> temporary file, writes the HERE data to it, then uses that temporary file.
> The ISPF equivalent is to write the ISPF panels / messages and so on into
> "temporary" PDSes. And then use the LIBDEF to make the PDSes active. Is
> this the way it is done? That is, by "cheating", rather than some ISPF
> function?
>
> --
> "Irrigation of the land with seawater desalinated by fusion power is
> ancient. It's called 'rain'." -- Michael McClary, in alt.fusion
>
> Maranatha! <><
> John McKown
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
>
>
--
ITschak Mugzach
*|** IronSphere Platform* *|** An IT GRC for Legacy systems* *| Automated
Security Readiness Reviews (SRR) **|*
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
