daily pastebin goal
11%
SHARE
TWEET

Untitled

a guest Jan 15th, 2012 91 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //MVS0080 JOB  (SETUP),
  2. //             'Build Netsol',
  3. //             CLASS=A,
  4. //             MSGCLASS=A,
  5. //             MSGLEVEL=(1,1),
  6. //             COND=(0,NE),
  7. //             NOTIFY=HERC01
  8. //********************************************************************
  9. //*
  10. //* Name: SYS1.SETUP.CNTL(MVS0080)
  11. //*
  12. //* Desc: Build new NETSOL logon screen
  13. //*
  14. //********************************************************************
  15. //CLEANUP EXEC PGM=IDCAMS
  16. //SYSPRINT DD  SYSOUT=*
  17. //SYSIN    DD  *
  18.  DELETE SYS1.UMODMAC(TURNKEY)
  19.  SET MAXCC=0
  20.  SET LASTCC=0
  21. //COMP    EXEC COMPRESS,LIB='SYS1.UMODMAC'
  22. //COPY    EXEC PGM=IEBCOPY
  23. //SYSPRINT DD  SYSOUT=*
  24. //SYSUT1   DD  DISP=SHR,DSN=SYS1.MACLIB
  25. //SYSUT2   DD  DISP=SHR,DSN=SYS1.UMODMAC
  26. //SYSIN    DD  *
  27.  COPY INDD=SYSUT1,OUTDD=SYSUT2
  28.  SELECT MEMBER=((NETSOL,,R))
  29. //UPDATE  EXEC PGM=IEBUPDTE
  30. //SYSPRINT DD  SYSOUT=*
  31. //SYSUT1   DD  DISP=SHR,DSN=SYS1.UMODMAC
  32. //SYSUT2   DD  DISP=SHR,DSN=SYS1.UMODMAC
  33. //SYSIN    DD  *
  34. ./ ADD NAME=TURNKEY
  35. * >>>>>>>>>>>>>>>>>>>>>> Sample Screen Layout <<<<<<<<<<<<<<<<<<<<<<<<
  36. *
  37. * ----+----1----5----2----+----3----+----4----+----5----+----6----+---
  38. *  Terminal:                                                          
  39. *                                                                      
  40. *                                                                      
  41. *     YY     YY    OOOOOO     SSSSS    PPPPPPP    OOOOOO     SSSSS    
  42. *      YY   YY    OO    OO   SSSSSSS   PP    PP  OO    OO   SSSSSSS    
  43. *       YY YY     OO    OO   SSS       PP    PP  OO    OO   SSS        
  44. *        YYY      OO    OO    SSS      PPPPPPP   OO    OO    SSS      
  45. *        YYY      OO    OO     SSS     PP        OO    OO     SSS      
  46. *        YYY      OO    OO      SSS    PP        OO    OO      SSS    
  47. *        YYY      OO    OO   SSSSSSS   PP        OO    OO   SSSSSSS    
  48. *        YYY       OOOOOO     SSSSS    PP         OOOOOO     SSSSS    
  49. *                                                                      
  50. *                                                                      
  51. *                                                                      
  52. *      heres somethin i whipped up                    brought to you by
  53. *      for laughs... if you are offended                 Optimus_rhyme
  54. *      by this i am sorry                          starwars420@juno.com
  55. *                                                                      
  56. *                                                                      
  57. *                                                                      
  58. *        Welcome to YOSPOS 380, running under the Hercules emulator    
  59. *                                                                      
  60. *  Logon ===>                                                          
  61. *                                                                      
  62.          PUSH  PRINT
  63.          PRINT OFF
  64. TURNKEY  DS    0D
  65. TURNKEYE $ESC
  66. TURNKEYI $IO   ERASE/WRITE
  67. TURNKEYW $WCC  (RESETKBD,MDT)
  68.          $SBA  (1,1)
  69.          $SF   (SKIP)
  70.          DC    C'Terminal:'
  71.          $SBA  (1,11)
  72.          $SF   (SKIP,HI)
  73. TKDEV    DC    CL8' '
  74.          $SBA  (1,20)
  75.          $SF   (SKIP)
  76.          $SBA  (4,4)
  77.          $SF   (SKIP,HI)
  78.          DC    C'YY'
  79.          $SBA  (4,7)
  80.          $SF   (SKIP)
  81.          $SBA  (4,11)
  82.          $SF   (SKIP,HI)
  83.          DC    C'YY'
  84.          $SBA  (4,14)
  85.          $SF   (SKIP)
  86.          $SBA  (4,17)
  87.          $SF   (SKIP,HI)
  88.          DC    C'OOOOOO'
  89.          $SBA  (4,24)
  90.          $SF   (SKIP)
  91.          $SBA  (4,28)
  92.          $SF   (SKIP,HI)
  93.          DC    C'SSSSS'
  94.          $SBA  (4,34)
  95.          $SF   (SKIP)
  96.          $SBA  (4,37)
  97.          $SF   (SKIP,HI)
  98.          DC    C'PPPPPPP'
  99.          $SBA  (4,45)
  100.          $SF   (SKIP)
  101.          $SBA  (4,48)
  102.          $SF   (SKIP,HI)
  103.          DC    C'OOOOOO'
  104.          $SBA  (4,55)
  105.          $SF   (SKIP)
  106.          $SBA  (4,59)
  107.          $SF   (SKIP,HI)
  108.          DC    C'SSSSS'
  109.          $SBA  (4,65)
  110.          $SF   (SKIP)
  111.          $SBA  (5,5)
  112.          $SF   (SKIP,HI)
  113.          DC    C'YY   YY'
  114.          $SBA  (5,13)
  115.          $SF   (SKIP)
  116.          $SBA  (5,16)
  117.          $SF   (SKIP,HI)
  118.          DC    C'OO'
  119.          $SBA  (5,19)
  120.          $SF   (SKIP)
  121.          $SBA  (5,22)
  122.          $SF   (SKIP,HI)
  123.          DC    C'OO'
  124.          $SBA  (5,25)
  125.          $SF   (SKIP)
  126.          $SBA  (5,27)
  127.          $SF   (SKIP,HI)
  128.          DC    C'SSSSSSS'
  129.          $SBA  (5,35)
  130.          $SF   (SKIP)
  131.          $SBA  (5,37)
  132.          $SF   (SKIP,HI)
  133.          DC    C'PP'
  134.          $SBA  (5,40)
  135.          $SF   (SKIP)
  136.          $SBA  (5,43)
  137.          $SF   (SKIP,HI)
  138.          DC    C'PP'
  139.          $SBA  (5,47)
  140.          $SF   (SKIP,HI)
  141.          DC    C'OO'
  142.          $SBA  (5,50)
  143.          $SF   (SKIP)
  144.          $SBA  (5,53)
  145.          $SF   (SKIP,HI)
  146.          DC    C'OO'
  147.          $SBA  (5,56)
  148.          $SF   (SKIP)
  149.          $SBA  (5,58)
  150.          $SF   (SKIP,HI)
  151.          DC    C'SSSSSSS'
  152.          $SBA  (5,66)
  153.          $SF   (SKIP)
  154.          $SBA  (6,6)
  155.          $SF   (SKIP,HI)
  156.          DC    C'YY YY'
  157.          $SBA  (6,12)
  158.          $SF   (SKIP)
  159.          $SBA  (6,16)
  160.          $SF   (SKIP,HI)
  161.          DC    C'OO'
  162.          $SBA  (6,19)
  163.          $SF   (SKIP)
  164.          $SBA  (6,22)
  165.          $SF   (SKIP,HI)
  166.          DC    C'OO'
  167.          $SBA  (6,25)
  168.          $SF   (SKIP)
  169.          $SBA  (6,27)
  170.          $SF   (SKIP,HI)
  171.          DC    C'SSS'
  172.          $SBA  (6,31)
  173.          $SF   (SKIP)
  174.          $SBA  (6,37)
  175.          $SF   (SKIP,HI)
  176.          DC    C'PP'
  177.          $SBA  (6,40)
  178.          $SF   (SKIP)
  179.          $SBA  (6,43)
  180.          $SF   (SKIP,HI)
  181.          DC    C'PP'
  182.          $SBA  (6,47)
  183.          $SF   (SKIP,HI)
  184.          DC    C'OO'
  185.          $SBA  (6,50)
  186.          $SF   (SKIP)
  187.          $SBA  (6,53)
  188.          $SF   (SKIP,HI)
  189.          DC    C'OO'
  190.          $SBA  (6,56)
  191.          $SF   (SKIP)
  192.          $SBA  (6,58)
  193.          $SF   (SKIP,HI)
  194.          DC    C'SSS'
  195.          $SBA  (6,62)
  196.          $SF   (SKIP)
  197.          $SBA  (7,7)
  198.          $SF   (SKIP,HI)
  199.          DC    C'YYY'
  200.          $SBA  (7,11)
  201.          $SF   (SKIP)
  202.          $SBA  (7,16)
  203.          $SF   (SKIP,HI)
  204.          DC    C'OO'
  205.          $SBA  (7,19)
  206.          $SF   (SKIP)
  207.          $SBA  (7,22)
  208.          $SF   (SKIP,HI)
  209.          DC    C'OO'
  210.          $SBA  (7,25)
  211.          $SF   (SKIP)
  212.          $SBA  (7,28)
  213.          $SF   (SKIP,HI)
  214.          DC    C'SSS'
  215.          $SBA  (7,32)
  216.          $SF   (SKIP)
  217.          $SBA  (7,37)
  218.          $SF   (SKIP,HI)
  219.          DC    C'PPPPPPP'
  220.          $SBA  (7,45)
  221.          $SF   (SKIP)
  222.          $SBA  (7,47)
  223.          $SF   (SKIP,HI)
  224.          DC    C'OO'
  225.          $SBA  (7,50)
  226.          $SF   (SKIP)
  227.          $SBA  (7,53)
  228.          $SF   (SKIP,HI)
  229.          DC    C'OO'
  230.          $SBA  (7,56)
  231.          $SF   (SKIP)
  232.          $SBA  (7,59)
  233.          $SF   (SKIP,HI)
  234.          DC    C'SSS'
  235.          $SBA  (7,63)
  236.          $SF   (SKIP)
  237.          $SBA  (8,7)
  238.          $SF   (SKIP,HI)
  239.          DC    C'YYY'
  240.          $SBA  (8,11)
  241.          $SF   (SKIP)
  242.          $SBA  (8,16)
  243.          $SF   (SKIP,HI)
  244.          DC    C'OO'
  245.          $SBA  (8,19)
  246.          $SF   (SKIP)
  247.          $SBA  (8,22)
  248.          $SF   (SKIP,HI)
  249.          DC    C'OO'
  250.          $SBA  (8,25)
  251.          $SF   (SKIP)
  252.          $SBA  (8,29)
  253.          $SF   (SKIP,HI)
  254.          DC    C'SSS'
  255.          $SBA  (8,33)
  256.          $SF   (SKIP)
  257.          $SBA  (8,37)
  258.          $SF   (SKIP,HI)
  259.          DC    C'PP'
  260.          $SBA  (8,40)
  261.          $SF   (SKIP)
  262.          $SBA  (8,47)
  263.          $SF   (SKIP,HI)
  264.          DC    C'OO'
  265.          $SBA  (8,50)
  266.          $SF   (SKIP)
  267.          $SBA  (8,53)
  268.          $SF   (SKIP,HI)
  269.          DC    C'OO'
  270.          $SBA  (8,56)
  271.          $SF   (SKIP)
  272.          $SBA  (8,60)
  273.          $SF   (SKIP,HI)
  274.          DC    C'SSS'
  275.          $SBA  (8,64)
  276.          $SF   (SKIP)
  277.          $SBA  (9,7)
  278.          $SF   (SKIP,HI)
  279.          DC    C'YYY'
  280.          $SBA  (9,11)
  281.          $SF   (SKIP)
  282.          $SBA  (9,16)
  283.          $SF   (SKIP,HI)
  284.          DC    C'OO'
  285.          $SBA  (9,19)
  286.          $SF   (SKIP)
  287.          $SBA  (9,22)
  288.          $SF   (SKIP,HI)
  289.          DC    C'OO'
  290.          $SBA  (9,25)
  291.          $SF   (SKIP)
  292.          $SBA  (9,30)
  293.          $SF   (SKIP,HI)
  294.          DC    C'SSS'
  295.          $SBA  (9,34)
  296.          $SF   (SKIP)
  297.          $SBA  (9,37)
  298.          $SF   (SKIP,HI)
  299.          DC    C'PP'
  300.          $SBA  (9,40)
  301.          $SF   (SKIP)
  302.          $SBA  (9,47)
  303.          $SF   (SKIP,HI)
  304.          DC    C'OO'
  305.          $SBA  (9,50)
  306.          $SF   (SKIP)
  307.          $SBA  (9,53)
  308.          $SF   (SKIP,HI)
  309.          DC    C'OO'
  310.          $SBA  (9,56)
  311.          $SF   (SKIP)
  312.          $SBA  (9,61)
  313.          $SF   (SKIP,HI)
  314.          DC    C'SSS'
  315.          $SBA  (9,65)
  316.          $SF   (SKIP)
  317.          $SBA  (10,7)
  318.          $SF   (SKIP,HI)
  319.          DC    C'YYY'
  320.          $SBA  (10,11)
  321.          $SF   (SKIP)
  322.          $SBA  (10,16)
  323.          $SF   (SKIP,HI)
  324.          DC    C'OO'
  325.          $SBA  (10,19)
  326.          $SF   (SKIP)
  327.          $SBA  (10,22)
  328.          $SF   (SKIP,HI)
  329.          DC    C'OO'
  330.          $SBA  (10,25)
  331.          $SF   (SKIP)
  332.          $SBA  (10,27)
  333.          $SF   (SKIP,HI)
  334.          DC    C'SSSSSSS'
  335.          $SBA  (10,35)
  336.          $SF   (SKIP)
  337.          $SBA  (10,37)
  338.          $SF   (SKIP,HI)
  339.          DC    C'PP'
  340.          $SBA  (10,40)
  341.          $SF   (SKIP)
  342.          $SBA  (10,47)
  343.          $SF   (SKIP,HI)
  344.          DC    C'OO'
  345.          $SBA  (10,50)
  346.          $SF   (SKIP)
  347.          $SBA  (10,53)
  348.          $SF   (SKIP,HI)
  349.          DC    C'OO'
  350.          $SBA  (10,56)
  351.          $SF   (SKIP)
  352.          $SBA  (10,58)
  353.          $SF   (SKIP,HI)
  354.          DC    C'SSSSSSS'
  355.          $SBA  (10,66)
  356.          $SF   (SKIP)
  357.          $SBA  (11,7)
  358.          $SF   (SKIP,HI)
  359.          DC    C'YYY'
  360.          $SBA  (11,11)
  361.          $SF   (SKIP)
  362.          $SBA  (11,17)
  363.          $SF   (SKIP,HI)
  364.          DC    C'OOOOOO'
  365.          $SBA  (11,24)
  366.          $SF   (SKIP)
  367.          $SBA  (11,28)
  368.          $SF   (SKIP,HI)
  369.          DC    C'SSSSS'
  370.          $SBA  (11,34)
  371.          $SF   (SKIP)
  372.          $SBA  (11,37)
  373.          $SF   (SKIP,HI)
  374.          DC    C'PP'
  375.          $SBA  (11,40)
  376.          $SF   (SKIP)
  377.          $SBA  (11,48)
  378.          $SF   (SKIP,HI)
  379.          DC    C'OOOOOO'
  380.          $SBA  (11,55)
  381.          $SF   (SKIP)
  382.          $SBA  (11,59)
  383.          $SF   (SKIP,HI)
  384.          DC    C'SSSSS'
  385.          $SBA  (11,65)
  386.          $SF   (SKIP)
  387.          $SBA  (15,5)
  388.          $SF   (SKIP)
  389.          DC    C'heres somethin i whipped up'
  390.          $SBA  (15,33)
  391.          $SF   (SKIP)
  392.          $SBA  (15,52)
  393.          $SF   (SKIP)
  394.          DC    C'brought to you by'
  395.          $SBA  (15,70)
  396.          $SF   (SKIP)
  397.          $SBA  (16,5)
  398.          $SF   (SKIP)
  399.          DC    C'for laughs... if you are offended'
  400.          $SBA  (16,39)
  401.          $SF   (SKIP)
  402.          $SBA  (16,55)
  403.          $SF   (SKIP)
  404.          DC    C'Optimus_rhyme'
  405.          $SBA  (16,69)
  406.          $SF   (SKIP)
  407.          $SBA  (17,5)
  408.          $SF   (SKIP)
  409.          DC    C'by this i am sorry'
  410.          $SBA  (17,24)
  411.          $SF   (SKIP)
  412.          $SBA  (17,49)
  413.          $SF   (SKIP)
  414.          DC    C'starwars420@juno.com'
  415.          $SBA  (17,70)
  416.          $SF   (SKIP)
  417.          $SBA  (21,7)
  418.          $SF   (SKIP)
  419.          DC    C'Welcome to YOSPOS 380, running under the'
  420.          $SBA  (21,48)
  421.          $SF   (SKIP,HI)
  422.          DC    C'Hercules'
  423.          $SBA  (21,57)
  424.          $SF   (SKIP)
  425.          DC    C'emulator'
  426.          $SBA  (21,66)
  427.          $SF   (SKIP)
  428.          $SBA  (23,1)
  429.          $SF   (SKIP,HI)
  430.          DC    C'Logon ===>'
  431.          $SBA  (23,12)
  432.          $SF   (UNPROT,HI)
  433.          $IC
  434. TKINP    DC    CL61' '
  435.          $SBA  (23,74)
  436.          $SF   (SKIP)
  437. TURNKEYL EQU   *-TURNKEY
  438.          POP   PRINT
  439. ./ CHANGE NAME=NETSOL
  440.          CLI   MSGINDEX,X'0C'             , is this msg to be shown?    23164805
  441.          BNE   NOUSS                      , bif not                     23164810
  442. *                                         , Now write the screen        23164815
  443.          LA    R3,TURNKEYL                , load length of screen data  23164820
  444.          L     R4,=A(TURNKEY)             , load address of screen data 23164825
  445.          WRITE RPL=(PTRRPL),              , send data                  X23164830
  446.                OPTCD=(LBT,ERASE),         , erase screen first         X23164835
  447.                AREA=(R4),                 , address is in R4           X23164840
  448.                RECLEN=(R3),               , length is in R3            X23164845
  449.                EXIT=WRITEND                                             23164850
  450.          B     USSOK                      , continue normal processing  23164855
  451. NOUSS    DS    0H                         , issue netsol message <> 12  23164860
  452. USSOK    DS    0H                         , logon screen has been sent  23166010
  453.          COPY TURNKEY                     , logon screen copy book      66810010
  454. //ASM     EXEC PGM=IFOX00,REGION=1024K
  455. //SYSLIB   DD  DISP=SHR,DSN=SYS1.UMODMAC,DCB=LRECL=32720
  456. //         DD  DISP=SHR,DSN=SYS2.MACLIB
  457. //         DD  DISP=SHR,DSN=SYS1.MACLIB
  458. //         DD  DISP=SHR,DSN=SYS1.AMODGEN
  459. //SYSUT1   DD  UNIT=VIO,SPACE=(1700,(600,100))
  460. //SYSUT2   DD  UNIT=VIO,SPACE=(1700,(300,50))
  461. //SYSUT3   DD  UNIT=VIO,SPACE=(1700,(300,50))
  462. //SYSPRINT DD  SYSOUT=*,DCB=BLKSIZE=1089
  463. //SYSPUNCH DD  DISP=(NEW,PASS,DELETE),
  464. //             UNIT=VIO,SPACE=(TRK,(2,2)),
  465. //             DCB=(BLKSIZE=80,LRECL=80,RECFM=F)
  466. //SYSIN    DD  *
  467. ISTNSC00 CSECT ,
  468.          NETSOL SYSTEM=VS2
  469.          END   ,
  470. //LKED    EXEC PGM=IEWL,PARM='XREF,LIST,LET,NCAL',REGION=1024K
  471. //SYSPRINT DD  SYSOUT=*
  472. //SYSLIN   DD  DISP=(OLD,DELETE,DELETE),DSN=*.ASM.SYSPUNCH
  473. //SYSLMOD  DD  DISP=SHR,DSN=SYS1.VTAMLIB(ISTNSC00)
  474. //SYSUT1   DD  UNIT=VIO,SPACE=(1024,(200,20))
  475. //*
  476. //
RAW Paste Data
Top