I sent this JCL to Larry which is for line data. AFP data would need some reblocking.
//***************************************************************
//* EXECUTE THE ARSDOC GET COMMAND
//***************************************************************
//*
//ARSZOSHL EXEC PGM=IKJEFT01,REGION=0M,COND=(0,NE)
//SYSEXEC DD DISP=SHR,DSN=ARSSCLM.V841.STGA.INST
// DD DISP=SHR,DSN=ARSSCLM.V841.INTA.INST
// DD DISP=SHR,DSN=ARSSCLM.V841.RELA.INST
//SYSTSPRT DD SYSOUT=*
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//SYSTSIN DD *
ARSZOSHL /usr/lpp/ars/dev/V8R4M1/bin/arsdoc get -h ARCHIV1 -
-u ARSTTT -p pwpwpwpw -v -c -a -d /tmp -
-o P99999.out -
-X "11324-308-0-1FAA-1278013021-1278013021" -
-G 'DLY_A'
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
//STDENV DD *
_BPX_SHAREAS=YES
_BPX_BATCH_SPAWN=YES
/*
//OSHOUT1 DD SYSOUT=*,DCB=(RECFM=F,LRECL=255)
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//*
//***************************************************************
//*
//* Copy the file loaded to HFS via the ARSDOC GET command in th
//* previous step.
//*
//***************************************************************
//COPY EXEC PGM=IKJEFT1A,COND=(0,NE)
//HFSCOPY DD DSN=ARS.DEV.TEMP.P54263.COPY,
// DISP=(,CATLG),
// DCB=ARSTEST.TESTCASE.DATA.LINE.P54263,
//* DCB=(LRECL=32756,RECFM=VB),
// SPACE=(CYL,(30,10),RLSE),
// UNIT=SYSDA
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROF MSGID
oget '/tmp/P54263.out' -
'ARS.TEMP.P99999.COPY' -
BINARY
//*