我正在尝试使用Connect:Direct NDM向目标服务器(大型机)提交二进制文件,在本例中为本地服务器(带有大型机重新托管软件的Solaris服务器)的Excel文件。
以下是我设置的环境值:
SODETFL "DetailedReport.xls"
SODDETNDM "FIN.REPORT(+1)"
TDCOPTS ":DATATYPE=BINARY:XLATE=NO:STRIP.BLANKS=NO"
以下是我使用的NDM配置:
ASSGNDD ddname='SYSIN' type='INSTREAM' << !
SIGNON 00260005
SUBMIT PROC=COPYFILE - 00270005
JOBNAME=JOB00001 - 00280005
PNODE=SERVER001 - 00290005
SNODE=NDMIDS - 00300005
SNODEID=(xxxxxx,xxxxxx) - 00310005
HOLD=NO - 00320005
NOTIFY=CCACTD - 00330005
NODE=, - 00360005
DSN1=${SODDETFL} - 00370005
DSN2=${SODDETNDM} -
DCBINFO='dcb=(dsorg=ps, recfm=vb, lrecl=1504)' - 00385005
DISP1=NEW, - 00390005
DISP2=CATLG,DELETE - 00400005
UNIT=BATCH - 00410005
SYSOPTS=${TDCOPTS} - 00440005
AEFAJOB=PSIAPNB5
SEL PROC WHERE (QUEUE=A) TABLE 00450005
SIGNOFF 00460005
我可以整天通过NDM发送文本文件,没有任何问题。然而,似乎二进制文件有点困难。当我尝试使用上面的配置时,我收到以下错误:
Completion Code => 8
Message Id => XCPS009I
Short Text => Read buffer too small. Possibly src reclen > dest reclen.
Ckpt=>Y Lkfl=>N Rstr=>N Xlat=>Y Scmp=>N Ecmp=>Y Ecpr=>0.00 CRC=>N Zlvl=>1 win=>13 Zmem=>4
任何人都可以了解如何通过NDM提交二进制文件吗?
答案 0 :(得分:4)
脱下袖口...... 尝试将RECFM = VB更改为RECFM = U并指定BLKSIZE =而不是LRECL =
除了您不希望文件是PDS数据集之外,这与可执行加载模块如何存储在大型机上的情况完全不同。我现在不在我的办公室,我想我有一些NDM传输负载模块的例子,如果这个建议不起作用我可以查看,但我认为它会。
给这个建议一个镜头,如果它还没有飞,请告诉我。