LINEMAC Beispiel                     goto homepage

YCOS bietet Ihnen auf den folgenden Seiten interessante Beispiele. Die Nutzung dieser Beispiele unterliegt Ihrer Verantwortung; die Firma YCOS übernimmt dafür keine Gewährleistung!

 

 

LINEMAC
            Erweiterung der ISPF Line Commands auf der Basis des Doug Nadel LMAC Programms!
            EIN MUSS für jeden ISPF Benutzer!!!!
       seit z/OS 1.13 integriert – Installation

o   To install Edit Line command under z/OS 1.13 follow following procedure:

·         Download and Unzip the file on your PC

·         Transfer to host – LRECL=80 and RECFM=F or FB and BINARY!

·         Receive the Dataset

·         RECEIVE INDATASET(ʹhost.data.set.nameʹ)

·         Copy the Member YCLMACTB to your ISPTLIB Concatenation

·         Copy the Members YCLMACRX, YCLMACNS, YCLMAHLP, GETDSN and GETLMSG and all your external Line Command Rexx (11/2016 Y$REV, Y$CL) to your SYSEXEC or SYSPROC Concatenation – if no own SYSEXEC or SYSPROC dataset is available, than use following Rexx to add a file to your SYSPROC concatenation:

/* REXX DIAGCONC Copyright YCOS Yves Colliard Software 2010-2012 */   

/* TRACE ?R  */                                                       

  /* einschalten des interaktiven Trace Modus */                      

  /* */                                                               

/***  REXX  **********************************************************/

/*  Funktion:  Concat your dataset to SYSPROC or SYSEXEC             */

/*  Aufruf:    DIAGCONC called with dataset name                     */

/*********************************************************************/

/* */                                                                 

if arg(1)="" then do                                                  

  say "Error give a dataset name"                                     

  exit 8                                                              

end                                                                   

if sysdsn(arg(1))<>"OK" then do                                        

  say "Error give dataset name" sysdsn(arg(1))                        

  exit 8                                                              

end                                                                   

  /* */                                                                

mydsn=strip(arg(1),"B","'")                                           

  /* */                                                               

if bpxwdyn("alloc da('"mydsn"') shr rtddn(mydd)")=0 then do           

  if bpxwdyn("concat ddlist(sysproc,"mydd")")>0 then do               

    if bpxwdyn("concat ddlist(sysexec,"mydd")")>0 then do             

      say "Error:"                                                    

      say "Dataset" mydsn "not concatenated to SYSPROC/SYSEXEC"       

      exit 8                                                          

    end                                                               

  end                                                                  

end                                                                   

else do                                                               

  say "Error:"                                                        

  say "Dataset" mydsn "not allocated"                                 

  exit 8                                                              

end                                                                   

§  On ISPF option 2 – Edit – enter the name of the table (at the bottom of the panel):

Line Macro Table . . . YCLMACTB

§  z/OS 2.2:

·         Define YCLMACTB as your edit line command table in the ISPF configuration

 

 

Installation prior z/OS 1.13!!!!:

1.    LMAC von Doug Nadel installieren

a.    ab z/OS 1.9 wird eine neue Version benötigt: http://www-01.ibm.com/support/docview.wss?uid=swg24014047

b.    ab z/OS 1.8 muss der Download von der IBM erfolgen! Die alte Version führt zum 0C4! http://www-306.ibm.com/software/awdtools/ispf/support/

c.    http://www.sillysot.com/mvs/index

                                          i.    LMAC runterladen (falls Sie es nicht bei Sillysot erhalten, schicken Sie uns einfach eine Mail!)

                                        ii.    auf den Host transferieren – BINARY – LRECL 80

                                       iii.    Receive
TSO RECEIVE INDATASET('your.transfered.lmac.xmi')

2.    LMAC Customization

a.    TSO CALL 'your.received.lmac.load(LMAC)'
+---------------------- Edit Line Macros -----------------------+
!                                                               !
!  Edit macro name . . . LINEMAC                                !
!  / Automatically enable line macros                           !
!    Process only the line commands listed below:               !
!
   ----------------------------------------------------------  !
!   >         >         >         >         >         >         !
!   >         >         >         >         >         >         !
!   >         >         >         >         >         >         !
!   >         >         >         >         >         >         !
!   >         >         >         >         >         >         !
!   >         >         >         >         >         >         !
!   >         >         >         >         >         >         !
!   ----------------------------------------------------------  !
! Press END or EXIT to save changes.                            !
! Press HELP for information on creating line macros.           !
!                                                               !
!                                                               !
!                                                               !
!                                                               !
!                                                               !
+---------------------------------------------------------------+

                                          i.    Edit macro name - the name of your LINE Macro REXX

                                        ii.    Select: Automatically enable line macros

                                       iii.    Use PF1 to see HELP!!!

b.    Copy LMAC Load Module to LINKLIST or ISPLLIB Concatenation

3.    LINEMAC Rexx in ISPF SYSPROC Concatenation einfügen
das Beispiel wird auch hier als XMIT Datei zur Verfügung gestellt!
Achtung ab z/OS 1.11 wird HX von der IBM unters

4.    Programm LMAC als Initial Macro für Edit/View definieren
EDSET – Edit_Settings

a.    Achtung das Programm muss als !LMAC oder ÜLMAC (German Language) angegeben werden. Das „!“ Ausrufezeichen weist ISPF hin, dass es sich um ein Programm handelt. Die IBM hat das Problem der unterschiedlichen Definitionen für German Language inzwischen berücksichtigt; siehe
APAR OA11855
APAR OA07471
APAR OA07392

 

 

Wenn Ihnen das LINEMAC gefällt, sie jedoch Fehler finden bzw. Erweiterungen benötigen, würde ich mich über Ihr FEEDBACK yves.colliard@ycos.de freuen!