REC625.jcl.txt 795 Bytes
Newer Older
Bruno Drouet's avatar
Bruno Drouet committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
STEP REC625,(&BIB-STP1);
SIZE 180;
ASG  H_DBPR,&BIB-DBUG,SUBFILE=@500REC625;
ASG  H_PR,&BIB-DISP,SUBFILE=&GD-JO_&DATE-QUA_&RON_REC625;
ASG  SOJA,REC.PARAM.PARAM@500,ACCESS=READ,SHARE=FREE;
ASG  RFLIUC,REC.&ENV1.TEL.RFLIUCI,SHARE=ONEWRITE,ACCESS=READ;
ASG  RDOCUM,&GD-DIR.RDOCUMTP;
DEF  RDOCUM,BPB=200;
ASG  RCORTP,&GD-DIR.RCORTP;
DEF  RCORTP,BPB=200;
ASG  ROLECP,&GD-DIR.ROL625,RELSPACE;
DEF  ROLECP,BPB=200;
ASG  PSNOMEN,PSN.PSNNOMEN,SHARE=FREE,ACCESS=READ;
DEF  PSNOMEN,READLOCK=STAT;
ASG  ROLATP,&GD-DIR.ROLATP,RELSPACE;
DEF  ROLATP,BPB=200;
ASG  BILAN,&GD-DIR.EDREC625,RELSPACE;
DEF  BILAN,BPB=200;
ASG  STATDGI,&GD-DIR.DGI625,RELSPACE;
DEF  STATDGI,BPB=200;
ASG  RDOCANO,&GD-DIR.RDOCANO,RELSPACE;
DEF  RDOCANO,BPB=200;
ASG  PARAM,REC.PARAM.PARAM@500,ACCESS=WRITE,SHARE=FREE;
ENDSTEP;