JohnArchieMckown

classmunge () {
        if [ -e $1 ]; then
        if ! echo $CLASSPATH | /bin/egrep -q "(^|:)$1($|:)" ; then
           if [ "$2" = "after" ] ; then
              CLASSPATH=$CLASSPATH:$1
           else
              CLASSPATH=$1:$CLASSPATH
           fi
        fi
        fi

JohnArchieMckown

#
# This shell function will return with a 0 if the specified program is on the ${PATH}.
# and will echo the full path name, including the executable. If it is not on
# the ${PATH}, it will return with a code of 1, but no output. The return value saves
# the necessity of testing to see if anything was returned. A "conditional execution"
# might be something like:
# fullname=$(which someprog) && ${fullname}
# Not that you'd actually do the above. Perhaps something more like:
# fullname=$(which someprog) && {
#   while read i;do ${fullname} $i;done <some.input

JohnArchieMckown

/* Rexx ispf edit macro to add characters to the meaning of word      */
/*                                                                    */
/* This changes internal tables to force specific characters to be    */
/* considered part of a word.  For example, In COBOL, The dash is     */
/* valid in a name.  If you have code                                 */
/*     MOVE ABC-DEF TO ABC.                                           */
/* and you issue                                                      */
/*     CHANGE ABC XYZ WORD                                            */
/* the result is                                                      */
/*     MOVE XYZ-DEF XYZ.                                              */

JohnArchieMckown

Short vignettes using Co:Z from Dovetailed Technologies

Submit a job from a shell script.

todsn //intrdr <<EOF
//JOBNAME JOB ACCT,NAME,CLASS=A,MSGCLASS=B
//BR14 EXEC PGM=IEFBR14

//

JohnArchieMckown

/* REXX */
PARSE ARG JOBNAME HLQ .
NUMERIC DIGITS 12
IF JOBNAME='' THEN JOBNAME='*'
HLQ=STRIP(HLQ,'B',"'")
IF HLQ='' THEN HLQ='SYSJO'
IF '/' = LEFT(HLQ,1) THEN DO
   if syscalls('ON')>3 then
      do
      say 'Unable to establish the SYSCALL environment'

JohnArchieMckown

WITH sel AS (
        SELECT id FROM hometowns WHERE name = 'Portland'
        ), 
  ins AS (
        INSERT INTO hometowns(name)
        SELECT 'Portland'
        WHERE NOT EXISTS (SELECT 1 FROM sel)
        RETURNING id
)

JohnArchieMckown

vincentize <- function(data, bins)
{
        if ( length(data) < 2 )
                {
                            stop("The data is really short. Is that ok?");
    }

    if ( bins < 2 )
            {
                        stop("A number of bins smaller than 2 just really isn't useful");

JohnArchieMckown

#!/bin/awk 
!a[$0]++

JohnArchieMckown

//IND$FILE JOB (H00000I),'IND$FILE',                                    00010000
//         CLASS=Z,                                                     00020000
//         MSGCLASS=X,                                                  00030000
//         NOTIFY=&SYSUID                                               00040000
//STEP010  EXEC  ASMACL,PARM.ASM='OBJECT,NODECK,BATCH'                  00050000
//ASM.SYSLIB DD DSN=SYS1.MACLIB,                                        00060000
//             DISP=SHR                                                 00070007
//         DD  DSN=SYS1.MODGEN,                                         00080000
//             DISP=SHR                                                 00090007
//ASM.SYSIN DD *                                                        00120000

JohnArchieMckown

[core]
        repositoryformatversion = 0
        filemode = true
        bare = false
        logallrefupdates = true
    compression = 0
    looseCompression = 0
[pack]
    compression = 0
    window = 0