mainframed

Simple (LOL) CICS DOGE "Good Morning" screen (i.e. overly complicated hello world)

CICS is like this mystery wrapped in an enigma wrapped in a riddle. Sure you've heard about it, your company might even rely on it day to day for some really important transactions. But if you wanted to quickly learn how to write and deploy a CICS transaction (or application) its basically impossible. Sure you could grab the Murach book, which is great, but its not a 101 level tutorial, they don't even comment about how to use CEDA to install your cics program and mention compiling COBOL and assembling maps in passing.

Throughout this writeup I'm going to refer to CICS like a web server. Yes, i know its the proto-webserver. I don't care, its the roaring 20's. With that in mind, some quick terminology:

• Transaction: 4 characters long, think of this like a URL. We'll use DOGE as our transaction.
• Region: This is like "servers". Imagine you had 3 tomcat servers running on different ports, same deal here, except we call th

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

#!/usr/bin/env python3

from datetime import datetime
import sys
import re


if len(sys.argv) < 6:
    print("\nTK4- ANSI art to HLASM Tool\n\nUsage:")
    usage = '''{} ansi_file tk4_user source_file_member cursor_x cursor_y > JCL_FILE\n

mainframed

#!/bin/bash
#
# Heavily Modified from: https://www.dosbox.com/wiki/PPP_configuration_on_linux_host
#
# Usage:
# sudo ./isp.sh
#
# This script makes it so you can browse the net with DOSBox and Trumpet Winsock in
# Windows 3.11
#

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

//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

[+] 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

#!/bin/bash
echo "[+] Uploading and Compiling"
HLASM=`echo $1|awk -F. '{print $1}'`
JCL=$2
HOST='SMOG'
echo "[+] HLASM File: $1 to $HLASM"
echo "[+] JCL File: $JCL"
echo "[+] Host: $HOST"
ftp -iv $HOST <<END_SCRIPT
passive

mainframed

#!/usr/bin/python

# To use this program:
# ./add_racf_user.py users.txt
# users.txt has either a username (max 7 chars, must start with a letter)
#           or a name (two words seperated by a space)

from ftplib import FTP #For FTP stuff
import time #needed for sleep
import os #to manipulate people... uh I mean files