~ajk/cash

ref: 93389b5fbaacf191f7ae53d7e731e2a9c3131a75 cash/z/jcl/KFUNLOAD.jcl -rw-r--r-- 706 bytes View raw
93389b5f — ajk Modified report jobs to upload files with unique names 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 *
zftp
z_cash
z_cash
cd /
asc
locsite trailingblanks
put //DD:TXNS txns.upload
rename txns.upload txns.dat
quit
/*
//