~ajk/cash

ref: 08eac3b3e4558b356041aa068b6ee76dc342543b cash/z/jcl/KFUNLOAD.jcl -rw-r--r-- 727 bytes View raw
08eac3b3 — ajk Modified FTP configuration 6 years ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
//KFUNLOAD JOB 'KFUNLOAD',
//  NOTIFY=&SYSUID
//STEP1    EXEC PGM=ICEMAN
//SORTIN   DD DSN=AK01DATA.CASH.TXNS,DISP=SHR
//SORTOUT  DD DSN=&&TXNS,DISP=(NEW,PASS)
//SYSIN    DD *
  OPTION COPY
  OUTREC FIELDS=(1,8,ZD,EDIT=(TTTTTTTT),
                 9,30,
                 39,3,PD,TO=ZD,LENGTH=6,
                 42,50,
                 92,6,PD,EDIT=(STTTTTTTT.TT),SIGNS=(,-),
                 98,1,
                 99,30,
                 129,8,ZD,EDIT=(TTTTTTTT),
                 137,2)
/*
//SYSOUT   DD SYSOUT=*
//STEP2    EXEC PGM=FTP
//TXNS     DD DSN=&&TXNS,DISP=SHR
//SYSIN    DD *
dev1
zftp_cash
zftp_cash
cd incoming/staging
asc
locsite trailingblanks
put //DD:TXNS txns.upload
rename txns.upload txns.dat
quit
/*
//