SHARE
TWEET

JCL to change VTAM

a guest Jun 17th, 2012 1,666 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //USSSCHG  JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,                  00010000
  2. //*            TYPRUN=SCAN,                                             00020000
  3. //             MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID                 00030000
  4. //*
  5. //BUILD   EXEC ASMACL
  6. //C.SYSLIB  DD DSN=SYS1.SISTMAC1,DISP=SHR
  7. //          DD DSN=SYS1.MACLIB,DISP=SHR
  8. //C.SYSIN   DD *
  9. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  10.          MACRO
  11. &NAME    SCREEN &MSG=™,&TEXT=™
  12.          AIF   ('&MSG' EQ '™' OR '&TEXT' EQ '™').END
  13.          LCLC  &BFNAME,&BFSTART,&BFEND
  14. &BFNAME  SETC  'BUF'.'&MSG'
  15. &BFBEGIN SETC  '&BFNAME'.'B'
  16. &BFEND   SETC  '&BFNAME'.'E'
  17. .BEGIN   DS    0F
  18. &BFNAME  DC    AL2(&BFEND-&BFBEGIN)        MESSAGE LENGTH
  19. &BFBEGIN EQU   *                       START OF MESSAGE
  20.          DC    X'F57A'                 ERASE/WRITE, WCC
  21.          DC    X'110000'               SBA, 0000     ROW 00 COL 01
  22.          DC    X'290242F6C0E0'         SFE, PROTECTED/NORMAL/YELLOW
  23.          DC    C'Mainframe Operating System           '
  24.          DC    C'                           z/OS V1.10'
  25. *              NEXT ELEVEN LINES DISPLAYS LOGOs
  26.          DC    X'110050'               SBA, 0080     ROW 01 COL 01
  27.          DC    X'290242F2C0E0'         SFE, PROTECTED/NORMAL/RED
  28.          DC C'                                        '
  29.          DC C'                                        '
  30.          DC C'                                        '
  31.          DC C'                                        '
  32.          DC C'                                        '
  33.          DC C'                                        '
  34.          DC C'                                        '
  35.          DC C'                                        '
  36.          DC C'                         SSSS Y   Y  SSS'
  37.          DC C'S  AAA                                  '
  38.          DC C'                        S      Y Y  S   '
  39.          DC C'  A   A                                 '
  40.          DC C'                          SSS   Y    SSS'
  41.          DC C'  AAAAA                                 '
  42.          DC C'                            S   Y       '
  43.          DC C'S A   A                                 '
  44.          DC C'                        SSSS    Y   SSSS'
  45.          DC C'  A   A                                 '
  46.          DC C'                                        '
  47.          DC C'                                        '
  48.          DC C'                                        '
  49.          DC C'                                        '
  50.          DC    X'110410'               SBA, 0960     ROW 12 COL 01
  51.          DC    X'290242F4C0E0'         SFE, PROTECTED/NORMAL/GREEN
  52.          DC C'                   Welcome to SYSA Mainf'
  53.          DC C'rame System!                              '
  54.          DC    X'1104B0'               SBA, 1120     ROW 14 COL 01
  55.          DC    X'290242F5C0E0'     SFE, PROTECTED/NORMAL/PURPLE
  56.          DC C'                                        '
  57.          DC C'                                        '
  58. .* APPLICATION: TSO
  59.          DC    X'110508'               APPLICATION POSITION
  60.          DC    X'290242F2C0E0'         SFE, PROTECTED/NORMAL/RED
  61.          DC    C'TSO'                  APPLICATION NAME
  62.          DC    X'110511'               DESCRIPTION POSITION
  63.          DC    X'290242F1C0E0'         SFE, PROTECTED/NORMAL/BLUE
  64.          DC    C'- Logon to TSO/ISPF'  APPLICATION DESCRIPTION
  65. .* APPLICATION: NETVIEW
  66.          DC    X'11052C'               APPLICATION POSITION
  67.          DC    X'290242F2C0E0'         SFE, PROTECTED/NORMAL/RED
  68.          DC    C'CNM01'                APPLICATION NAME
  69.          DC    X'110535'               DESCRIPTION POSITION
  70.          DC    X'290242F1C0E0'         SFE, PROTECTED/NORMAL/BLUE
  71.          DC    C'- Netview System'     APPLICATION DESCRIPTION
  72. .* APPLICATION: CICSTS32
  73.          DC    X'110558'               APPLICATION POSITION
  74.          DC    X'290242F2C0E0'         SFE, PROTECTED/NORMAL/RED
  75.          DC    C'CICSTS32'             APPLICATION NAME
  76.          DC    X'110561'               DESCRIPTION POSITION
  77.          DC    X'290242F1C0E0'         SFE, PROTECTED/NORMAL/BLUE
  78.          DC    C'- CICS System'        APPLICATION DESCRIPTION
  79. .* APPLICATION: SA
  80.          DC    X'11057C'               APPLICATION POSITION
  81.          DC    X'290242F2C0E0'         SFE, PROTECTED/NORMAL/RED
  82.          DC    C'SA'                   APPLICATION NAME
  83.          DC    X'110585'               DESCRIPTION POSITION
  84.          DC    X'290242F1C0E0'         SFE, PROTECTED/NORMAL/BLUE
  85.          DC    C'- System Automation'  APPLICATION DESCRIPTION
  86. .* APPLICATION: IMS
  87.          DC    X'1105A8'               APPLICATION POSITION
  88.          DC    X'290242F2C0E0'         SFE, PROTECTED/NORMAL/RED
  89.          DC    C'IMS'                  APPLICATION NAME
  90.          DC    X'1105B1'               DESCRIPTION POSITION
  91.          DC    X'290242F1C0E0'         SFE, PROTECTED/NORMAL/BLUE
  92.          DC    C'- IMS System'         APPLICATION DESCRIPTION
  93. .* OTHER INFORMATION
  94.          DC    X'110640'               SBA, 1600     ROW 21 COL 01
  95.          DC    C'Enter your choice==>'
  96.          DC    X'110654'               SBA, 1622     ROW 21 COL 22
  97.          DC    X'290242F2C0C8'         SFE, UNPROTECTED/NORMAL
  98.          DC    X'13'                   INSERT CURSOR
  99.          DC    X'11068F'               SBA, 1690     ROW 22 COL 01
  100.          DC    X'290242F6C0E0'         SFE, PROTECTED/NORMAL/YELLOW
  101.          DC    C&TEXT                  USS MESSAGES
  102.          DC    X'11072F'               SBA, 1840     ROW 24 COL 01
  103.          DC    X'290242F1C0E0'         SFE, PROTECTED/NORMAL/GREEN
  104.          DC    C'Your IP(@@@@@@@@@IPADDR:@@PRT), SNA LU(@@LUNAME)'
  105.          DC    C'       @@@@DATE @@@@TIME'
  106. &BFEND   EQU   *                       END OF MESSAGE
  107. .END     MEND
  108. *
  109. *
  110. *               ..............
  111. USSTAB   USSTAB TABLE=STDTRANS,FORMAT=DYNAMIC
  112. *        SPACE
  113. TSO      USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL      TSO
  114.          USSPARM PARM=APPLID,DEFAULT=TSO
  115.          USSPARM PARM=P1,REP=DATA
  116. *        SPACE
  117. CNM01    USSCMD  CMD=CNM01,REP=LOGON,FORMAT=BAL
  118.          USSPARM PARM=APPLID,DEFAULT=CNM01
  119. CICS     USSCMD  CMD=CICS,REP=LOGON,FORMAT=BAL
  120.          USSPARM PARM=APPLID,DEFAULT=CICS
  121. IMS      USSCMD  CMD=IMS,REP=LOGON,FORMAT=BAL
  122.          USSPARM PARM=APPLID,DEFAULT=IMS81CR1
  123. SA       USSCMD  CMD=CNM01,REP=LOGON,FORMAT=BAL
  124.          USSPARM PARM=APPLID,DEFAULT=CNM01
  125. *        SPACE
  126.          USSMSG MSG=00,BUFFER=(BUF00,SCAN)
  127.          USSMSG MSG=01,BUFFER=(BUF01,SCAN)
  128.          USSMSG MSG=02,BUFFER=(BUF02,SCAN)
  129.          USSMSG MSG=03,BUFFER=(BUF03,SCAN)
  130. *        USSMSG MSG=04,BUFFER=(BUF04,SCAN)
  131.          USSMSG MSG=05,BUFFER=(BUF05,SCAN)
  132.          USSMSG MSG=06,BUFFER=(BUF06,SCAN)
  133.          USSMSG MSG=08,BUFFER=(BUF08,SCAN)
  134.          USSMSG MSG=10,BUFFER=(BUF10,SCAN)
  135.          USSMSG MSG=11,BUFFER=(BUF11,SCAN)
  136.          USSMSG MSG=12,BUFFER=(BUF12,SCAN)
  137.          USSMSG MSG=14,BUFFER=(BUF14,SCAN)
  138. *        SPACE
  139. STDTRANS DC    X'000102030440060708090A0B0C0D0E0F'
  140.          DC    X'101112131415161718191A1B1C1D1E1F'
  141.          DC    X'202122232425262728292A2B2C2D2E2F'
  142.          DC    X'303132333435363738393A3B3C3D3E3F'
  143.          DC    X'404142434445464748494A4B4C4D4E4F'
  144.          DC    X'505152535455565758595A5B5C5D5E5F'
  145.          DC    X'604062636465666768696A6B6C6D6E6F'
  146.          DC    X'707172737475767778797A7B7C7D7E7F'
  147.          DC    X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'
  148.          DC    X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'
  149.          DC    X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'
  150.          DC    X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
  151.          DC    X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
  152.          DC    X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
  153.          DC    X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
  154.          DC    X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
  155. END      USSEND
  156. *        SPACE
  157. *********************************************************************** ********
  158. *DEFAULT MESSAGE PROVIDED BY VTAM:
  159. *  MSG 00: IST457I POSITIVE command COMMAND RESPONSE
  160. *  MSG 01: IST450I INVALID command COMMAND SYNTAX
  161. *  MSG 02: IST451I command COMMAND UNRECOGNIZED, PARAMETER=parameter
  162. *  MSG 03: IST452I parameter PARAMETER EXTRANEOUS
  163. *  MSG 04: IST453I parameter PARAMETER VALUE value NOT VALID
  164. *  MSG 05: N/A
  165. *  MSG 06: IST792I NO SUCH SESSION EXISTS
  166. *  MSG 07: N/A
  167. *  MSG 08: IST454I command COMMAND FAILED, INSUFFICIENT STORAGE
  168. *  MSG 09: N/A
  169. *  MSG 10: READY
  170. *  MSG 11: IST455I parameters SESSIONS ENDED
  171. *  MSG 12: IST456I keyword REQUIRED PARAMETER OMITTED
  172. *  MSG 13: N/A
  173. *  MSG 14: IST458I USS MESSAGE number NOT DEFINED
  174. *********************************************************************** ********
  175. *  CUSTOMIZED USS MESSAGES:
  176.          SCREEN MSG=00,TEXT='Command is in progress...'
  177.          SCREEN MSG=01,TEXT='Invalid command or syntax'
  178.          SCREEN MSG=02,TEXT='Invalid Command'
  179.          SCREEN MSG=03,TEXT='Parameter is unrecognized!'
  180. *        SCREEN MSG=04,TEXT='Parameter with value is invalid'
  181.          SCREEN MSG=05,TEXT='The key you pressed is inactive'
  182.          SCREEN MSG=06,TEXT='There is not such session.'
  183.          SCREEN MSG=08,TEXT='Command failed as storage shortage.'
  184.          SCREEN MSG=10,TEXT='Enter one of above commands in red'
  185.          SCREEN MSG=11,TEXT='Your session has ended'
  186.          SCREEN MSG=12,TEXT='Required parameter is missing'
  187.          SCREEN MSG=14,TEXT='There is an undefined USS message'
  188.          END
  189. /*
  190. //L.SYSLMOD DD DISP=SHR,DSN=ADCD.Z111S.VTAMLIB
  191. //L.SYSIN   DD *
  192.   NAME USSN(R)
  193. //*
RAW Paste Data
Challenge yourself this year...
Learn something new in 2017
Top