Advertisement
Guest User

Untitled

a guest
Apr 19th, 2018
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.04 KB | None | 0 0
  1. BROWSE TWS830.SEQQSKL0(EQQLMTAB) - 01.00 Line 00000000 Col 001 080
  2. Command ===> Scroll ===> CSR
  3. ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
  4. ********************************* Top of Data **********************************
  5. //OPCINSTA JOB (9999),'OPCSAMPLES',CLASS=A,MSGCLASS=Q, 00010000
  6. // MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID
  7. //ASSEMBLE EXEC PGM=ASMA90,PARM='OBJECT,NODECK' 00020000
  8. //*
  9. //* Licensed Materials - Property of IBM
  10. //* 5698-A17
  11. //* (C) Copyright IBM Corp. 1990, 2006 ALL RIGHTS RESERVED.
  12. //* US Government Users Restricted Rights - Use, duplication
  13. //* or disclosure restricted by GSA ADP Schedule Contract
  14. //* with IBM Corp.
  15. //*
  16. //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR 00030000
  17. //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,50)) 00040000
  18. //SYSLIN DD DSN=&LOADSET,UNIT=SYSDA,SPACE=(80,(250,50)), 00050000
  19. // DISP=(,PASS) 00060000
  20. //SYSPRINT DD SYSOUT=* 00070000
  21. //SYSIN DD * 00080000
  22. EQQLMTAB MODETAB 00090000
  23. MODEENT LOGMODE=NCFSPARM, C00100000
  24. FMPROF=X'04', C00110000
  25. TSPROF=X'04', C00120000
  26. PRIPROT=X'F3', C00130000
  27. SECPROT=X'F3', C00140000
  28. COMPROT=X'0000', C00150000
  29. PSERVIC=X'000000000000000000000000', C00160000
  30. RUSIZES=X'8787' 00170000
  31. MODEEND 00180000
  32. END 00190000
  33. //LINK EXEC PGM=IEWL,PARM='XREF,LIST,LET,CALL' 00200000
  34. //SYSPRINT DD SYSOUT=* 00210000
  35. //SYSLMOD DD DSN=ADCD.Z110S.VTAMLIB(EQQLMTAB),DISP=SHR 00220000
  36. //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,50)) 00230000
  37. //SYSLIN DD DSN=&LOADSET,DISP=(OLD,DELETE) 00240000
  38. ******************************** Bottom of Data ********************************
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement