F  p''  125  all
   Find all non-spaces in column 125

Write output spool to file:
   PRINT ODSN 'userid.xxxx.xxxx' NEW;
   PRINT;PRINT CLOSE

Search for string in PDS
   SRCHFOR abc

Find name of VSAM file in CICS region:
   Log into region and use UTR1 to display list of files by DD name
   Select DD name you want

SEARCH in batch mode:
//SEARCH1  EXEC  PGM=ISRSUPC,PARM=(SRCHCMP,ANYC)
//NEWDD     DD   DSN=FILEIN,DISP=SHR
//OUTDD     DD   DSN=SYSOUT=*
//SYSIN     DD   *
  CMPCOLM 0172
  SRCHFOR 'xxxxx'     (this literal)
  SRCHFOR 'xxxxx',W   (as a word)
  SRCHFOR 'xxxxx',P   (words that start with xxxxx)
  SRCHFOR 'xxxxx,10   (after col 10)
  SRCHFOR 'xxxxx'     (between col 1 and 20)

  SRCHFOR 'xxxxx'
  SRCHFORC 'abc'      (xxxxx and abc on same line)

SELECT member1, member2, member3 (only check these members of PDS)

COMPARE in batch mode:
//SUPERC  EXEC  PGM=ISRSUPC,PARM=(DELTA,LINECMP,"","")
//OLDDD    DD   DSN=FILE1,DISP=SHR
//NEWDD    DD   DSN=FILE2,DISP=SHR
//OUTDD    DD   SYSOUT=*
//


//SUPERC  EXEC  PGM=ISRSUPC,PARM=(DELTA,LINECMP,"","")
//OLDDD    DD   DSN=FILE1,DISP=SHR
//NEWDD    DD   DSN=FILE2,DISP=SHR
//OUTDD    DD   SYSOUT=*
//SYSIN    DD   *
   CMPCOLM 01:50,60:80
//

//SUPERC  EXEC  PGM=ISRSUPC,PARM=(DELTA,LINECMP,"","")
//OLDDD    DD   DSN=FILE1,DISP=SHR
//NEWDD    DD   DSN=FILE2,DISP=SHR
//OUTDD    DD   SYSOUT=*
   CMPCOLMO 01:50,60:80
   CMPCOLMN 02:51,59:79
//

TAPES:
   UNIT=(,,,DEFER)
   FREE=CLOSE

JOBQ
  B – browse o/p
  C – cancel job, keep o/p
  E – edit o/p
  N – save o/p into dataset
  B – browse o/p

SDSF
  SE – edit o/p
  SJ – display JCL from o/p spool
  S  – browse o/p
  ?  – display each dd of o/p seperately

OSDA – view job o/p

ScrName xxxx

Swap List

Substring in COBOL
   Fieldname(1:3)    from 1st position for length of 3
   Fieldname(3:)        from 3rd position to end of field

Endevor
List of signed out elements:
   2 – foreground
   8 – signin
        Where signout eq ‘userid’ or blank

Search for string
LIST ELEMENT ‘*’
   FROM ENVIRONMENT ‘MERPROD’ SYSTEM ‘xxxx’ SUBSYSTEM ‘*’
   TYPE ‘COBOL*’ STAGE P
   WHERE TEXT EQ
        ‘xxxxxxxx’
   COLUMNS 7 72

Update element:
SET STOPRC 16.
UPDATE ELEMENT ‘xxxxx’
    FROM DSNAME ‘userid.xxx.xx’
    TO ENVIRONMENT ‘MERPROD’ SYSTEM ‘xxxx’ SUBSYSTEM ‘yyyyy’
   TYPE ‘COBOLB’
OPTIONS OVERRIDE SIGNOUT PROC GROUP ‘7C5D100’
.


JCL
//MYLIB JCLLIB ORDER=(dsn)