Operator

REXX TO SAVE A MEMBER OF PDS IN VIEW MODE The following REXX code can be used to save a member in VIEW mode. Although you can save a member using ISPF commands while viewing the datasets also (refer Saving in View Mode) ; ; ; ; “ISPEXEC CONTROL ERRORS RETURN”           […]

INSPECT REPLACING LEADING SAPCES BY LITERAL The following COBOL program depicts the use of  INSPECT REPLACING LEADING SAPCES BY LITERAL        01 TEST-STRING   PIC X(50) VALUE SPACES.        01 WS-COUNTER    PIC 9(9)  VALUE ZEROES.        01 SEARCH-STRING PIC X(2)  VALUE SPACES.              MOVE ‘

Mainframe Job for pulling NDM stats DMBATCH utility helps in pulling  the data in batch mode from NDM. The following Job uses DMBATCH to pull information from NDM in batch. It could be really helpful in reporting the processes that failed in the cycle. //NDMSTAT    JOB (ACC INFO,,,,,XXXX),’         ‘,CLASS=M,    //            MSGCLASS=Y,NOTIFY=&SYSUID              //DELETE   EXEC PGM=IEFBR14                                           //DD01     DD 

Generate list of files in a folder using DOS  There may be instances when you wish to generate a list of files The following DOS command can be useful in achieving the above /B – bare format, no summaries and headings  /A:-D – no directories, files only and to save the list we can redirect

ISREDIT MACROS Picture Strings A picture string in a FIND, CHANGE, or EXCLUDE command allows you to search for a particular kind of character without regard for the specific character involved. You can use special characters within the picture string to represent the kind of character to be found, as follows:   String MeaningP’=’    Any

CLIST to Allocate Libraries The following CLIST can be used  to Allocate clist library to Sysproc, panel library to ISPPLIB, message library to ISPMLIB and skel library to ISPSLIB using the ALTLIB command. ALTLIB ACTIVATE APPLICATION (CLIST) +                                 DATASET(‘USERID.CLIST’) UNCOND                   SET &ALTLIBRC = &LASTCC                                        IF  &ALTLIBRC NE 0 THEN +                                         WRITE &SYSICMD: ALTLIB(ACTIVATE)

Wrapping data at a particular column There may be instances when you wish to wrap the data in a file at a particular column, For example there is a file with data of length 100 and you wish to split the data at 50th column then issue the following command after opening the dataset in edit mode ;

INSPECT REPLACING CHARACTERS BY LITERAL BEFORE The following COBOL program depicts the use of  INSPECT REPLACING CHARACTERS BY LITERAL BEFORE        01 TEST-STRING   PIC X(50) VALUE SPACES.        01 WS-COUNTER    PIC 9(9)  VALUE ZEROES.        01 SEARCH-STRING PIC X(2)  VALUE SPACES.             

We often make use of ISREDIT macros to do a quick job for us, for example tailoring a file to eliminate few records etc, or search a string in a file etc etc. It becomes necessary at times to pass information to a macro and get back the information. The following example will show you