Tue, 07/17/2012 – 13:50 #1 Creating a file using CLIST The following code can be used to create a flat file using CLIST. SET PS=USERID.DATA.SET IF &SYSDSN(‘&PS’) =OK THEN + DELETE ‘&PS’ ALLOC DA(‘&PS’) F(FIL1) NEW SPACE(250 20) TRACKS RELEASE + LRECL(80) RECFM(F B) DSORG(PS) FREE FILE(FIL1) “; ; ; ; Click the +1 button […]
Creating a file using CLIST Read More »
Wed, 08/01/2012 – 03:19 #1 Create PDS using CLIST The following code can be used to create PDS using CLIST. SET PDS=&SYSUID..COMMON.TEMP IF &SYSDSN(‘&PDS’) =OK THEN +  DELETE ‘&PDS’ ALLOC DA(‘&PDS’) F(FIL1) NEW SPACE(20 20) TRACKS RELEASE + DIR(44) LRECL(80) RECFM(F B) DSORG(PO) FREE FILE(FIL1) “; ; ; ; Click the +1 button  below
Create PDS using CLIST Read More »
Tue, 07/31/2012 – 03:17 #1 Copy members using CLIST from one pds to another The following CLIST code can be used to copy members from one PDS to the other. /*ISPEXEC CONTROL DISPLAY REFRESH CONTROL MSG CONLIST SYMLIST NOFLUSH CONTROL NOMSG SET FIL1=PDDH1B ISPEXEC LMINIT DATAID(INPDD1) DATASET(‘&SYSUID..COMMON.JOBS’) ISPEXEC LMINIT DATAID(OUTDD1) DATASET(‘&SYSUID..COMMON.TEMP’) ISPEXEC LMCOPY FROMID(&INPDD1) TODATAID(&OUTDD1)
Copy members using CLIST from one pds to another Read More »
Tue, 09/04/2012 – 17:28 #1 How to find number of similar HLQ members in a single PDS. For example My PDS contain members like PRDS0101 PRDS0220 RDRD2020 PRD20202 Please suggest me how to find the count of PRD (HLQ) if it is huge number in PDS. Thanks ! Click the +1 button  below to share it with
How to find number of similar HLQ members in a single PDS. Read More »
The following article gives a brief history of IBM corporation and their journey to the top How IBM Climbed To The Top  by Johan Monarrez The history of IBM Corporation may have begun in 1890 when an innovative method was designed by Herman Hollerith to document census data. Hollerith designed a code that could be punched into
Mon, 12/26/2011 – 08:30 #1 Moving spaces to numeric field Can someone please let me know, how I can move spaces into a numeric field. My program has a logic where I need to check the sign value of the numeric field of a file, if it is +ve move the value into file else
Moving spaces to numeric field Read More »
Thu, 11/10/2011 – 20:30 #1 mainframe files – strip spaces/blanks/x’40’ I have some files that need all the white space removed. the flds are delimited with pipes. Any good ideas? “; ; ; ; Click the +1 button  below to share it with your friends and colleagues Share this if you liked it! Disclaimer
mainframe files – strip spaces/blanks/x’40’ Read More »
Thu, 01/26/2012 – 15:59 #1 List all datasets starting with Qualifier Can someone provide a batch job to create the list of datasets with a high level qualifier? Click the +1 button  below to share it with your friends and colleagues Share this if you liked it! Disclaimer
List all datasets starting with Qualifier Read More »
The following article by Tommie James talks about power of COBOL language and its limitations. He also describes what is legacy modernization and why it can be fruitful to IT companies. The COBOL Legacy Language by Tommie James COmmon Business-Oriented Language, commonly-known as COBOL, has been around for almost 50 years. But, the utilization and support for the programming language still remains. COBOL is
legacy modernization Read More »
Mon, 12/26/2011 – 01:59 #1 Julian calendar non leap Year The following calendar can be helpful in determining the Julian day corresponding to a normal date You can use the following calendar to get the today’s date in Julian. DATE JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 1 1 32
Julian calendar non leap Year Read More »
