Report section(Microfocus)- creating some problem
Can any one help me pleaseeeeeee my cobol pgm and jcl are as follows: i am not reading any input file, but creating an output file in which the report should be written i am hard coding the values in the detail section the error is "illegal file name"some times jcl: //testjcl1 job (@0050045),'obsap interf',class=8,msgclass=w,region=0m //* user=&sysuid //* //step01 exec pgm=iefbr14 //infile dd dsn=new.data1, // disp=(mod,delete,delete), // dcb=(lrecl=80,blksize=8000,recfm=v,dsorg=ps), // space=(cyl,(200,100),rlse) //step02 exec pgm=iebgener //sysprint dd sysout=* //sysut1 dd dummy //sysut2 dd dsn=new.data1, // disp=(new,catlg,delete), // dcb=(lrecl=80,blksize=8000,recfm=v,dsorg=ps), // space=(cyl,(200,100),rlse) //* //step03 exec pgm=repgen //*outfile dd sysout=* //outfile dd dsn=new.data1,disp=shr cobol(repgen): input-output section. File-control. Select output-file assign to outfile . Data division. File section. Fd output-file recording mode f report is customer-report. Report section. Rd customer-report page limit is 30 lines heading 2 first detail 08 last detail 17. 01 type is report heading. 02 line number is 2 column number is 2 picture is a(15) value is 'abc corporation'. 02 line number is plus 1 column number is 37 picture is a(15) value is '**************'. 01 type is page heading. 02 line number is 4 column number is 34 picture is a(14) value is 'invoice report'. 02 line number is 7 column number is 1 picture is a(5) value is 'month'. 02 column number is 20 picture is a(15) value is 'invoice number'. 02 column number is 70 picture is z(15) value is 'charge'. 01 detail-line type is detail. 02 line number is plus 1 column number is 1 picture is x(5) value is 'rec1'. 02 column number is 20 picture is 9(7) value is 50000. 02 column number is 50 picture is 9(7) value is 1000. 02 column number is 70 picture is 9(2) value is 20. 01 type is page footing. 02 line number is plus 10 column number is 20 picture is x(5) value is 'page:'. 02 column number is 39 picture is 99 value is 01. 01 type is report footing. 02 line number is plus 1 column number is 10 picture is x(17) value is '**end of report**'. Procedure division. 1000-paragraph. Open output output-file. Initiate customer-report. * generate customer-report. Generate detail-line. Terminate customer-report. Stop run.
Last edited by Prasanna_Mandadi; 2 Weeks Ago at 08:26 AM.
Reason: not in a readable format
|