#!/bin/bash
PUNCH=/home/S390/mvs3.8j/pch/pch00d.txt

if [ "$1" = "" -o "$2" = "" -o "$3" = "" ]; then
 echo "usage: subget HLQ 'DSN' src.file"
 exit 1
fi

getfpos $PUNCH >/tmp/length$PPID

cat <<EOF | a2e -p - >/tmp/copy$PPID.jcl
//$1GT JOB  (GET),'GET',MSGCLASS=A,MSGLEVEL=(1,1)
//CC       EXEC PGM=IEBGENER,REGION=128K
//SYSPRINT DD   SYSOUT=*
//SYSUT1   DD   DSN=$2,DISP=OLD
//SYSUT2   DD   SYSOUT=B
//SYSIN    DD   DUMMY
EOF

sub /tmp/copy$PPID.jcl

getpart $PUNCH `cat /tmp/length$PPID` | e2a -t - >$3

rm -f /tmp/copy$PPID.jcl /tmp/length$PPID
