** CBL.CMX(SAMPLE) ***             L=002 --- 2016/08/02 16:34:16  (JGE)
 
This file contains sample commands to get you started in populating
your own "HOME" file.
 
Each command may executed using the "ACTION" key (F16).
 
 
 
The first command sets an option to allow comments on same line as
a command. An OR-sign ('|') then separates the command and comment.
 
<set ActionComment |
 
 
 
 
                    *** Sample ACTION commands ***
 
<edit SYS1.MACLIB(OPEN)      | Text-Edit a file.
<e    SYS1.MACLIB(DCB)       | 'E' is minumum abbreviation for 'EDIT'.
 
 
| Next command uses Data-Edit to map records using a COBOL copybook.
| It extends over 2 lines - backslash indicates command is continued.
<sd  browse    USER123.SELCTRN.ZZST1DAT              \
   using cobol USER123.SELCTRN.SAM1(ZZST1CPC)
 
 
| Next command edits a DB2 table.
<sd  edit db2  SYSIBM.SYSTABLES                      \
         where(CREATOR = 'SYSIBM' and CHILDREN > 0)  \
         select(CHILDREN,*)                          \
         sort(CHILDREN desc)
 
 
| Next commands list datasets and library members using wildcards
<ld   SYS1.M*                | List datasets.
<ll   SYS1.MACLIB(BLSR*)     | List library members.
 
 
| Next command searches a library for a character string.
<fsu inp( SYS1.MACLIB(O*) )    find('SETA')
 
 
| Next command compares two library members (first 20 records only)
<compf  SYS1.MACLIB(BLSRDATC)    SYS1.MACLIB(BLSRDATS)  1to1  for 20
 
 
| As well as SELCOPYi commands, you can also execute TSO commands e.g.
<tso console syscmd( display symbols ) | Display static system symbols.
 
 
 
| Rename, copy and delete datasets, library members or HFS files.
<rename USER123.SELCTRN.SAM1(ZZST1CPC)   USER123.SELCTRN.SAM1(ZZST1XXX)
<fcopy  USER123.SELCTRN.SAM1(ZZST1CPC)   USER123.SELCTRN.SAM1(ZZST1XXX)
<erase  USER123.SELCTRN.SAM1(ZZST1*)
 
 
| Run SELCOPY in debug mode to step through statements, set breaks etc.
<selcopy -ctl CBL.CTL(DEMO)      | Point at a SYSIN dataset.
 
 
 
 
 
 
 
 
2010/01/15   ** RACF Commands to define new TSO User       *** .TsoId
| This sequence demonstrates use of commands with embedded variables.
| Variables are denoted as %xxx% and are set using the "EQU" command.
 
|----------------------- Tailor Variables ------------------
<equ NewUid   USER123                | Userid (Max 7 chars for TSO).
<equ NewPwd   TMP                    | Initial Password.
<equ NewNam   Demo User              | Full name.
<equ UnxUid   525                    | Unix UID.
|-----------------------------------------------------------
<ams  DEFINE ALIAS (NAME(%NewUid%) RELATE(USERCAT.CBLCAT)) |>ams DEL %NewUid%
 
 
| "TsoC" will execute a TSO command and "Capture" output in a window.
<TsoC DELUSER %NewUid%
<TsoC ADDUSER %NewUid%                                            \
        SPECIAL AUDITOR OPERATIONS                                \
        OWNER(IBMUSER)   PASSWORD(%NewPwd%) NAME('%NewNam%')      \
        DFLTGRP(CBL) AUTHORITY(JOIN) GRPACC UACC(ALTER)           \
    TSO(ACCTNUM(CBLACCNT) PROC(APEDISPF) COMMAND(ISPF) MAXSIZE(0) \
        JOBCLASS(A)   MSGCLASS(X)   SYS(X)   HOLDCLASS(X)         \
       )                                                          \
   OMVS(UID(%UnxUid%) HOME('/u/cbl/%NewUid%') PROGRAM('/bin/tcsh')\
        FILEPROCMAX(65535)                                        \
       )                                                          \
 ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 
<TsoC CO %NewUid% GROUP(SYS1) OWNER(IBMUSER) AUTHORITY(JOIN) GRPACC UACC(ALTER)
>TsoC CO %NewUid% GROUP(SU)   OWNER(IBMUSER) AUTHORITY(USE)  GRPACC UACC(ALTER)
 
>TsoC help PERMIT
<TsoC PERMIT CBLACCNT  CLASS(ACCTNUM) ID(%NewUid%)      ACCESS(READ)
 
<TsoC PERMIT APEDISPF  CLASS(TSOPROC) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT CBLITEST  CLASS(TSOPROC) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT TESTPROC  CLASS(TSOPROC) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT DBSPROC   CLASS(TSOPROC) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT IKJACCNT  CLASS(TSOPROC) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT ISPFPROC  CLASS(TSOPROC) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT LOGONSM1  CLASS(TSOPROC) ID(%NewUid%)      ACCESS(READ)
<TsoC SETROPTS      CLASSACT(TSOPROC)  RACLIST(TSOPROC)  REFRESH
 
<TsoC PERMIT JCL       CLASS(TSOAUTH) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT OPER      CLASS(TSOAUTH) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT ACCT      CLASS(TSOAUTH) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT MOUNT     CLASS(TSOAUTH) ID(%NewUid%)      ACCESS(READ)
<TsoC PERMIT RECOVER   CLASS(TSOAUTH) ID(%NewUid%)      ACCESS(READ)
<TsoC SETROPTS      CLASSACT(TSOAUTH)  RACLIST(TSOAUTH)  REFRESH
 
| SMS Automatic Class Selection (ACS) ...
<e  cbl.sms.ctl(MGMTCLAS)
<e  cbl.sms.ctl(STORCLAS)
<start m.2   | Then choose option 7, then 2 (translate) for both members.
<start m.2   | Then choose option 8, then 5 (activate).
 
| ... and add details to migrate library.
<e cbl.user.migrate.jcl(CBLICF`)
<e cbl.user.migrate.jcl(CBLCONF)
<uss mkdir /u/cbl/USER1234           | Needs super-user (nbj) auth.
 
 
<TsoC PERMIT JCL       CLASS(TSOAUTH) ID(%user%)      ACCESS(NONE)
<TsoC PERMIT JCL       CLASS(TSOAUTH) ID(%user%)      ACCESS(READ)
<TsoC SETROPTS      CLASSACT(TSOAUTH)  RACLIST(TSOAUTH)  REFRESH
 
 
 
 
 
 
2016/08/02   ** Compare Libraries using DD concatenation   *** .CompLib
 
| Sample using SELCOPYi's ALLOC command.
<alloc        f(PTFASM) shr reuse da('CBL.CBLI330.RS33004.ASM')
<alloc  -cat  f(PTFASM) shr reuse da('CBL.CBLI330.RS33003.ASM')
<alloc  -cat  f(PTFASM) shr reuse da('CBL.CBLI330.RS33002.ASM')
<alloc  -cat  f(PTFASM) shr reuse da('CBL.CBLI330.RS33001.ASM')
<alloc  -cat  f(PTFASM) shr reuse da('CBL.CBLI330.ASM')
<la             PTFASM
 
 
| Or chain them together so ACTIONed with one key press
<alloc        f(DEVASM) shr reuse da('CBL.CBLI340.ASM') \
;alloc  -cat  f(DEVASM) shr reuse da('CBL.CBLI330.ASM') \
;alloc  -cat  f(DEVASM) shr reuse da('CBL.CBLI320.ASM') \
;alloc  -cat  f(DEVASM) shr reuse da('CBL.CBLI310.ASM')
<la             DEVASM
 
 
 
<complib  PTFASM(SDE*)   DEVASM      sync READA(200) LIM 0  CONTEXT 10
 
| Scan the concatenation for a string ...
<fsu inp(&DEVASM(WIN*) ) find( 'DSECT' )
 
 
 
| Sample using TSO's ALLOC command.
 
<tso alloc    f(PTFASM) shr reuse da(                           \
                                     'CBL.CBLI330.RS33004.ASM'  \
                                     'CBL.CBLI330.RS33003.ASM'  \
                                     'CBL.CBLI330.RS33002.ASM'  \
                                     'CBL.CBLI330.RS33001.ASM'  \
                                    )
 
<tso alloc    f(DEVASM) shr reuse da(                           \
                                     'CBL.CBLI340.ASM'          \
                                     'CBL.CBLI330.ASM'          \
                                     'CBL.CBLI320.ASM'          \
                                     'CBL.CBLI310.ASM'          \
                                    )
 
<complib  PTFASM(SDE*)   DEVASM      sync READA(200) LIM 0  CONTEXT 10
 
 
                      --- End ---