Scribd
Upload
183 views2 pages

NEW Unit Creation

The document outlines a series of commands and checks to ensure the proper restoration of libraries in the EQLIBL data area and the existence of the EQLP library. It includes changing data area values, creating output queues, modifying job descriptions, granting object authority, and managing journaling processes. Additionally, it provides instructions for logging in, replacing unit mnemonics, and maintaining message queues.

Uploaded by

Rangachakkaravarthy Gopal
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
183 views2 pages

NEW Unit Creation

The document outlines a series of commands and checks to ensure the proper restoration of libraries in the EQLIBL data area and the existence of the EQLP library. It includes changing data area values, creating output queues, modifying job descriptions, granting object authority, and managing journaling processes. Additionally, it provides instructions for logging in, replacing unit mnemonics, and maintaining message queues.

Uploaded by

Rangachakkaravarthy Gopal
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

Ensure that all the libraries in EQLIBL dataarea has been restored properly.

Additionally check the library EQLP exists.

CHGDTAARA DTAARA(KLIBxxx/KAPUNOWN) VALUE('KAPOWNER ')


CHGDTAARA DTAARA(KLIBxxx/KAPUNDES) VALUE('xxx PROD BACKUP')
CHGDTAARA DTAARA(KLIBxxx/KAPUNMNM) VALUE('xxx')

HIST 14APR17-22DEC17
HIST 23DEC17-04JAN19

dspdtaara klibXXX/eqlibl

Deslocamento *...+....1....+....2....+....3....+....4....+....5
0 'KINPKAP KFILKAP KWRKKAP KLIBKAP KBP'
50 'C K#RCKAP LIBCIF QSYS2909 LIBKA '
100 ' REPEQNKAP WFSYSKAP EQLIB391 EQLIB39'
150 ' KAPBASELIB QGPL QTEMP QRPG QM'
200 'QM '
250 ' '

CHGDTAARA DTAARA(KLIBxxx/EQLIBL (27 3)) VALUE('xxx')


CHGDTAARA DTAARA(KLIBxxx/EQLIBL (38 3)) VALUE('xxx')
CHGDTAARA DTAARA(KLIBxxx/EQLIBL (49 3)) VALUE('xxx')
CHGDTAARA DTAARA(KLIBxxx/EQLIBL (60 3)) VALUE('xxx')
CHGDTAARA DTAARA(KLIBxxx/EQLIBL (88 3)) VALUE('xxx')
CHGDTAARA DTAARA(KLIBxxx/EQLIBL (99 3)) VALUE('xxx')
CHGDTAARA DTAARA(KLIBxxx/EQLIBL (71 3)) VALUE('xxx')

CRTOUTQ OUTQ(QGPL/QPRINTxxx)

CHGJOBD JOBD(KLIBxxx/QBATCH) TEXT('Kesawan Production-xxx') INLLIBL(KINPxxx KFILxxx


KWRKxxx KLIBxxx KGAPxxx KAPBASELIB IN4PROGO QGPL QTEMP QMQM QRPG)

GRTOBJAUT OBJ(KFILxxx/*ALL) OBJTYPE(*ALL) USER(KAPOWNER) AUT(*ALL)


GRTOBJAUT OBJ(KINPxxx/*ALL) OBJTYPE(*ALL) USER(KAPOWNER) AUT(*ALL)
GRTOBJAUT OBJ(KWRKxxx/*ALL) OBJTYPE(*ALL) USER(KAPOWNER) AUT(*ALL)
GRTOBJAUT OBJ(KLIBxxx/*ALL) OBJTYPE(*ALL) USER(KAPOWNER) AUT(*ALL)
GRTOBJAUT OBJ(KPARxxx/*ALL) OBJTYPE(*ALL) USER(KAPOWNER) AUT(*ALL)

WRKOBJ OBJ(KFILxxx/KAPJRN) ===> RENAME WITH OPTION 7(Or Delete)

CRTDTAARA DTAARA(KFILxxx/KAPJRN) TYPE(*CHAR) LEN(2000) TEXT('Equation Journaling


data area')

Assign the new unit to the User- Kmenu8 � option 1


user as THMOWNER
xxx QCMD

Signoff

Login at newly Created Unit

Error may occur due to Messageing Interface in Live (MMM)

Give C and Enter till logged in

� KMENUC option1 -?
option1(Journal definition)
ASP . . . . . . . . . . . > 1 1-16
o Replace CURRENT UNIT mnemonic wherever you find the OLD UNIT mnemonic
� Option2 (Create journal receiver)
� Option3 (Create journal)
� End Jounaling � kmenuc � option 12
� To confirm Option 22 and option 23

To WMENU1 OPt MSW (SWIFT Variables Maintenance )


in Second Page Clear the Fields:
Incoming MQ queue . . . .
Outgoing MQ queue . . . .
MQ queue manager . . . .

� Kmenuc Option1 ? 11 Start journaling


� KMENUL Option 5 to Release the unit
� KMENUC option1 -? option2(Journal definition)
ASP . . . . . . . . . . . > 1 1-16
o Replace CURRENT UNIT mnemonic wherever you find the OLD UNIT mnemonic
� Option2 (Create journal receiver)
� Option3 (Create journal)

You might also like