Job/JCL is to search a PS(Partitioned Sequential) file for a particular string

//SEARCH@ JOB (acct#),’Searching a PS Library’,CLASS=0,MSGCLASS=J
//* THIS JOB WILL SEARCH A PS(Sequential file)
//STEP020 EXEC PGM=FILEAID,REGION=4M
//DD10 DD DSN=input.dsn,DISP=SHR
//DD10O DD DSN=output.dsn,
// DISP=(NEW,CATLG,CATLG)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
$$DD10 USER IF=(1,0,C’search string’),WRITE=DD10O

copying a tape file to normal/disk sequential file

//TAPE2DSK@ JOB (acct#),’Converting a Tape to DASD Library’,CLASS=0,MSGCLASS=J
//* THIS JOB WILL CONVERT A TAPE TO DASD(Sequential file)
//STEP010 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//SYSUT1 DD DSN=input.dsn,DISP=SHR
//*
//SYSUT2 DD DSN=output.dsn,
// DISP=(NEW,CATLG,CATLG)
// DCB=*.SYSUT1,
// SPACE=(CYL,(1000,10),RLSE),
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY

Putting the messgaes from the Sequential file to MQ Queue.

Find the below JCL(Job Control Language) to put the messgaes from the Sequential file to MQ Queue.
//PUTTOMQ@ JOB (acct#),’MQ PUT’,CLASS=0,MSGCLASS=J
//*MOVING THE MESSAGES FROM SEQUENTIAL FILE TO MQ QUEUE
//PS010 EXEC PGM=MqUtility
//STEPLIB DD DSN=Programlib,
// DISP=SHR
// DD DSN=Loadlib,
// DISP=SHR
// DD DSN=Mqlibraries,
// DISP=SHR
//AGPARMS DD *
QueueManager
QueueName
//MQOUTPUT DD DSN=Inout.dsn,
// DISP=SHR
//MQERRORS DD *
ERROR CODE-1
ERROR CODE-2
|
|
|
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
If you have any doubts, please get back to me. Above JCL was tested and it is working fine.

Loading huge data into the Mainframe data through the load utility

//LOADUTLY JOB (acct#),’LOAD UTLTY’,CLASS=0,MSGCLASS=J
//*LOADING HUGE DATA INTO THE MF DATABASE USING
//* THE LOAD UTILITY
//STEP EXEC PGM=loadutility,REGION=0M
// PARM=(database alias,’load module’,&RES,,message paramteres)),
//*
//STEPLIB DD DSN=systemlib.dsn,
// DISP=SHR
// DD DSN=databaselib.dsn,
// DISP=SHR
// DD DSN=Linklib.dsn,
// DISP=SHR
//*
//OUTPUT DD DSN=output.dsn,
// DISP=(NEW,CATLG,CATLG)
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//INPUT DD DSN=input.dsn,
// DISP=SHR
//*
//REJECT DD DSN=reject.dsn,
// DISP=(NEW,CATLG,CATLG)
//*
//ERROR DD DSN=error.dsn,
// DISP=(NEW,CATLG,CATLG)
//*
//SYSIN DD *

RECURRING DREAMS

If you have ever had a dream that kept coming back you were experiencing what is known as a recurring dream. This experience is actually fairly common. These dreams are communications from the inner self to the outer self as is the case with all dreams. What makes these unique is that the same events, the same theme or even a series of episodes that occur much like a soap opera, are experienced by the dreamer.
A recurring dream is like communicating to someone who has his or her attention somewhere other than on the conversation. Whenever you try to get a message across to someone and you have not received that person’s full attention, you will probably need to repeat the message over and over until it is heard by the receiver. Recurring dreams are especially important to understand as they are messages from the inner self to the outer self. The essence of the dream will be repeated over and over until a change is made in the awareness of the dreamer. The need for repetition indicates that the same or similar situation is present in the life and so the same message is pertinent for the dreamer’s progression.
Reference : Google…Found while preparing for the dreams speach

Few tso commands

QPRINT
Save the Quick Reference document in a PDS or PS ·
TSO PROFILE
The profile command is used either to specify to the system certain user characteristics which are to be used to control the flow of information to and from the terminal or to list the user profile. The user profile is retained throughout each terminal session unless the user wishes to change it by issuing the profile command again and specifying the appropriate operands. ·
CUT DISPLAY
This command when given while a member is opened in view/edit mode will show the Clipboard manager. The Clipboard can then be browsed or deleted. ·
KEYLIST
Displays the Keylist utility. Invoking KEYLIST OFF can disable it.
KEYS

• If the KEYLIST is ON, it displays the keys of current Keylist.
• If the KEYLIST is OFF, it displays the Primary keys definition.

PFSHOW
Displays the value of all the PFKEYS on the panel. They can be removed from the panel by invoking PFSHOW OFF ·
SCRNAME ON
Displays the screen name of the Top Left corner. We can give our own screen name to any screen by writing “SCRNAME myscrname” ·
SWAP LIST
Displays the Active ISPF logical Sessions.

YAMMY b'day cake

YAMMY cake we enjoyed a lot during the b'day party so just memorizing my sweetly sweet memory

US vs other country exchange

US exchange currency


Any time you take a chance you better be sure the rewards are worth the risk because they can put you away just as fast for a ten dollar heist as they can for a million dollar job.