MainframeSupports
tip uge 9/2003:

For to et halvt år siden skrev jeg et tip om, hvordan man laver sin egen EDIT macro til hypertext. Som jeg også antyder i dette tip, så er denne slags macro'er ret udbredt, når det gælder om at gå i BROWSE, EDIT eller VIEW på et dataset, men der er absolut intet i vejen for at bruge princippet til helt andre formål:

/* REXX: XCMD */
ADDRESS ISREDIT
"MACRO"
"(LRECL) = LRECL"
"(LINENO, POSNO) = CURSOR"
IF POSNO > 0 & POSNO <= LRECL
THEN DO
  "(MYLINE) = LINE "LINENO
  ADDRESS ISPEXEC
  "SELECT CMD("STRIP(MYLINE)") SUSPEND"
END
ELSE
  SAY 'CURSOR NOT IN DATA'
EXIT

Denne EDIT macro prøver at udføre indholdet af cursor linien som en TSO kommando. Simpelt, enkelt og ligetil. Faktisk kan du med ovenstående EDIT macro erstatte punkt 6 i ISPF. Ikke noget med først at gå ned og udpege kommandoen for derefter at udføre den. Ingen begrænsninger i antallet af gemte kommandoer. Ikke noget med først at skulle over i punkt 6. Nem editering af kommandoen. Og du kan selv finde på alle mulige andre features.

Husk lige tricket med at benytte en funktionstast til at udføre selve EDIT macro'en med. Det er også beskrevet i tippet om hypertext. Min egen version af hypertext macro'en kan både EDIT og VIEW samtidig med at den kan udføre TSO kommandoer. Så skal jeg kun optage een funktionstast til begge formål. God fornøjelse.

Forrige danske tip        Last tip in english        Tip oversigten