mainframed

//* The next are lines JCL to create a temp dataset (&&OMG) with
//* a member (REXX). The file then looks like &&OMG(REXX).
//* The end of the REXX file is noted as single line with ## on it
//* The program IEBGENER copies all that data to the temp file
//CREATOMG  EXEC PGM=IEBGENER
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD DUMMY
//SYSUT2    DD DSN=&&OMG(DOIT),UNIT=SYSDA,
//             DISP=(NEW,PASS,DELETE),
//             SPACE=(TRK,(1,1,1)),

mainframed

grep open *.nmap | grep tn3270 | sed -E '
  /ssl\/tn3270/ {
    s/.*\.([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\.nmap:([0-9]+)\/.*/L:\1:\2/
    b
  }
  s/.*\.([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\.nmap:([0-9]+)\/.*/\1:\2/
'

mainframed

#!/bin/sh
set -x
/bin/tsocmd "TSS LIST(SDT) CERTMAP(ALL)" > 01_certmap.txt
/bin/tsocmd "TSS LIST(ACIDS) DATA(ADMIN, BASIC)" > 02_acids_admin-basic.txt
/bin/tsocmd "TSS LIST(ACIDS) DATA(BASIC)" > 03_acids_basic.txt
/bin/tsocmd "TSS MODIFY STATUS" > 04_modify_status.txt
/bin/tsocmd "TSS WHOHAS OPERCMDS(MVS)" > 05_opercmds_mvs.txt
/bin/tsocmd "TSS WHOHAS DSN(SYS1.PARMLIB)" > 06_whohas_sys1.parmlib.txt
/bin/tsocmd "TSS WHOHAS DSN(SYS1.LINKLIB)" > 07_whohas_sys1.linklib.txt
/bin/tsocmd "TSS WHOHAS DSN(SYS1.SVCLIB)" > 08_whohas_sys1.svclib.txt

mainframed

//NETSPI JOB (NETSPI),'NETSPI',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
//TSOTSS EXEC PGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
TSS LIST(ACIDS) TYPE(SCA)
TSS LIST(ACIDS) DATA(ADMIN)
TSS WHOHAS FACILITY(APPC)
TSS LIST(RESOURCES) TYPE(ACTION) MASK(NODSN)
TSS LIST(RESOURCES) TYPE(ACTION) MASK(EXIT)
TSS MODIFY(MSUSPEND)

mainframed

//PHILCATJ JOB (JOB),'CATMAP3J',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
//*
//          EXPORT SYMLIST=*
//          SET LOADMOD=APFCHECK
//          SET LOADLIB=FOO.LOAD.LIB
//*
//ASM       EXEC PGM=ASMA90,PARM='NODECK,XREF(SHORT)'
//SYSLIB    DD  DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1    DD  UNIT=SYSDA,SPACE=(TRK,(50,10))
//SYSUT2    DD  UNIT=SYSDA,SPACE=(TRK,(50,10))

mainframed

/* REXX */
parse arg len
SAY "LISTUSER RACF User Enumeration Tool"
SAY "VER 1"
/* License: GPLv3 */

ALPHANUM = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789'
DO I=1 to 36
 S1 = RIGHT(LEFT(ALPHANUM,I),1)
 DO J=1 to 36

mainframed

//NJE38  JOB (TSO),
//             'Install NJE38',
//             CLASS=A,
//             MSGCLASS=H,
//             MSGLEVEL=(1,1),
//             USER=IBMUSER,
//             PASSWORD=SYS1
/*JOBPARM   LINES=1000
//*
//* This JCL does 4 things:

mainframed

[+] ANSi to EBCDiC Starting
[+] Arguments:

    ANSi File:	bsdiesSD.ans
    Jobname:	AWESOME
    Dataset:	ANSI.ART
    Member:		ANSIART
    Cursor: (IC)
	Location:	22,20
	Input length:	20

mainframed

#!/bin/bash
#set -x
WID=$(xdotool search --class "vmware"|tail -1)
echo "[+] Found WID of Horizon client $WID"
xdotool windowactivate $WID
POS=$(xdotool getwindowgeometry $WID | awk -F "[, ]" 'NR==2{print $4 " " $5}')
GEO=$(xdotool getwindowgeometry $WID | awk -F "[x]" 'NR==3{print $1 " " $2}')
GEO=${GEO:13}
echo "[+] Horizon Client Geometry $GEO"
echo "[+] Horizon Client Position $POS"

mainframed

#!/usr/bin/env python3

import sys

# ANSI carriage control characters
#  Some MVS documents use 0/1/+/- as carriage control. This python will
#  convert them to markdown/text. The standard ANSI characters are:
#
#  - `space` Single space the line and print.
#  - `0` Double space the line and print.