mainframed

//RACROUTE JOB (ACCT),                                 
//             '                    ',                 
//             CLASS=A,                                
//             MSGCLASS=X,                             
//             MSGLEVEL=(1,1),                         
//             REGION=0M,                              
//             NOTIFY=&SYSUID 
//*
//* From David Spiegel 2016
//*

mainframed

PROC 2 USER TOTAL                                 
CONTROL NOCAPS                                    
WRITE *** Protecting users &USER 1 to &USER &TOTAL
DO &COUNT = 1 TO &TOTAL                           
   ALU &USER&COUNT NOPASS                         
END                                               
WRITE *** DONE                                    

mainframed

!Add this to your x3270 profile in your home folder (~/.x3270pro)
x3270.model: 2
! First we set the color scheme to the name demo
x3270.colorScheme: demo
! Then we set the colors we need
! These colors were picked for the class
x3270.colorScheme.demo: \
	black midnightBlue darkred brown \
	darkGreen midnightblue darkgoldenrod black \
	black midnightblue SaddleBrown purple \

mainframed

/* REXX */
/* Change port to user number */
/* i.e. EVIL21 set port to 55521 */
p = '46290'
mf_ip = '0.0.0.0'
n = "25"x
txt = ''
r = "READY"||n
s = SOCKET('INITIALIZE','DAEMON',2)
s = SOCKET('SOCKET')

mainframed

#!/bin/bash

for i in {11..99}; do
  echo "A06TSO$i APPL  AUTH=(NOACQ,NOBLOCK,PASS,NOTCAM,NVPACE,TSO,NOPO),       X"
  echo "               EAS=1,ACBNAME=TSO00$i                                    "
  echo "*"
done

mainframed

//SKELLY   JOB (ASSY),'SKELLY',CLASS=A,MSGCLASS=Y,                      00010000
//         NOTIFY=&SYSUID,MSGLEVEL=(1,1)                                00020000
//ASM      EXEC PROC=HLASMCL                                            00030000
//SYSIN    DD   *                                                       00040000
CLR70    TITLE 'C L E A R - TSO'                                        00050000
         PRINT ON,DATA,GEN                                              00060000
CLEAR    CSECT                                                          00080000
*         SETUP registers and save areas thanks @bigendiansmalls      * 00110000
MAIN     STM   14,12,12(13)    # Save caller reg                        00140000
         LR    8,15            # Base register                          00150000

mainframed

#!/bin/bash
# This output goes in to <whatever>.VTAMLST(A0TCP)
echo "[+] Creating 00 through 99 LUs for" $1
STRLENGTH=`echo -n $1 | wc -m`
if [ "$STRLENGTH" -ne "6" ] ; then
  echo "[!] The name you entered ($1) not long enough."
  echo "[!] Must be 6 characters long"
  exit
fi

mainframed

/* REXX */
/* Simple HTTP REXX CURL */
/* Usage: HTTPR 'URL' or HTTPR '-O DATASET URL' */
/* Arguments:  -O output to a file */
/*             URL site to get */
/* By default the script will display the contents of the URL to the screen */
/* Cribbed from: */
/* https://groups.google.com/forum/#!topic/bit.listserv.tsorexx/lk74hblwn3U */
/* Copyright Soldier of FORTRAN */
/* trace i */

mainframed

for i in `strings "//'user01.jcllib'"`
  do 
     echo "$i ======"
     cat "//'user01.jcllib($i)'"|grep pass
  done

mainframed

/* REXX */ 
/* Maps Storage to find UNIX UID/GID location */
ASCB_PTR = C2X(STORAGE(D2X(X2D("224")),4)) 
ASXB_PTR = C2X(STORAGE(D2X(X2D(ASCB_PTR) + X2D("6C")),4)) 
ACEE_PTR = C2X(STORAGE(D2X(X2D(ASXB_PTR) + X2D("C8")),4)) 
ACEE_LEN = C2D(STORAGE(D2X(X2D(ACEE_PTR) + X2D("14")),1)) 
ACEE_UID = STORAGE(D2X(X2D(ACEE_PTR) + X2D("15")),ACEE_LEN)
ACEEOCOX = C2X(STORAGE(D2X(X2D(ACEE_PTR) + X2D("98")),4)) 
ACEX     = STORAGE(D2X(X2D(ACEEOCOX)),76) 
USP      = C2X(STORAGE(D2X(X2D(ACEEOCOX) + X2D("48")),4))