H DEBUG DATEDIT(*DMY.) DFTACTGRP(*NO) ACTGRP(*new) * D wrkfields DS d wrkstring 128a varying * D INDS DS D JOBNAM 1 26 D SPLFID 27 36 D SPLNO 37 40B 0 D MAILTA 41 290 D MAILTB 41 120 D PDFFI1 291 546 D PDFFI2 547 630 D SVRTYP 631 631 D RES1 632 632 D PCCSID 633 636B 0 D SENDER 637 646 D USRDTA 647 656 D SYSNAM 657 664 D TIMEST 665 672 D OUTQ 673 682 D OUTQLI 683 692 * D OUTDS DS D DISPOS 1 1 D CALLAG 2 2 D RES2 3 4 D MSGLEN 5 8B 0 D ADRRLE 9 12B 0 D MSGTXT 13 267 D RES3 268 268 D EXTOFF 269 272B 0 D CCSID 273 276B 0 D stmfdisp 277 277 D splfdisp 278 278 D err 279 279 D RES4 280 287 D ADDRES 288 543 * D EXTLEN 544 547B 0 D SUBOFF 548 551B 0 D SUBLEN 552 555B 0 D RPLYOFF 556 559B 0 D RPLYLEN 560 563B 0 D CCOFF 564 567B 0 D CCLEN 568 571B 0 D BCCOFF 572 575B 0 D BCCLEN 576 579B 0 D bdypthoff 580 583B 0 D dirpthoff 584 587B 0 D dirpthlen 588 591B 0 D attpthoff 592 595B 0 * new for v5.3 D NEWPTHOFF 596 599B 0 D NEWPTHLEN 600 603B 0 D NEWOBJOFF 604 607B 0 D NEWOBJLEN 608 611B 0 D PUBAUTOFF 612 615B 0 D PUBAUTLEN 616 619B 0 D PDFQOFF 620 623B 0 D PDFQLEN 624 627B 0 D AFPQOFF 628 631B 0 D AFPQLEN 632 635B 0 D ENCRYPTOFF 636 639B 0 D ENCRYPTLEN 640 643B 0 * D pubaut 644 653 * D INLEN DS 4 D BINLEN 1 4B 0 D OUTLEN DS 4 D BOUTLE 1 4B 0 D OUTINF DS 4 D BOUTIN 1 4B 0 /EJECT ******************************************************************** * MAIN-LINE ******************************************************************** * C *ENTRY PLIST C PARM INDS C PARM INLEN C PARM OUTDS C PARM OUTLEN C PARM OUTINF * C Z-ADD 653 BOUTIN * C BOUTIN IFLE BOUTLE * * C MOVE '0' DISPOS do not send email C MOVE '0' CALLAG DON'T CALL AGAIN c eval stmfdisp = '1' generate stmf in ifs c eval splfdisp = '0' don't generate splf C eval res2 = x'0000' X'0000' * C eval res3 = x'00' C Z-ADD 543 EXTOFF EXTENSION OFFSET C Z-ADD *ZERO CCSID C Z-ADD 100 EXTLEN LEN OF EXT AREA FORM C eval res4 = x'0000000000000000' ALL X'00' * c eval newpthoff = *zero offset to new object c eval newpthlen = *zero length of new object * public authority c eval pubautoff = 643 offset to public aut c eval wrkstring = '*ALL' c eval pubaut = wrkstring c eval pubautlen = %len(wrkstring) length of public aut * not used offsets (at least up till now) C Z-ADD *zero pdfqoff C Z-ADD *zero pdfqlen C Z-ADD *zero afpqoff C Z-ADD *zero afpqlen C Z-ADD *zero encryptoff C Z-ADD *zero encryptlen c eval adrrle = *zero c eval msglen = *zero c eval err = '0' c eval suboff = *zero c eval sublen = *zero c eval rplyoff = *zero c eval rplylen = *zero c eval ccoff = *zero c eval cclen = *zero c eval bccoff = *zero c eval bcclen = *zero c eval bdypthoff = *zero c eval dirpthoff = *zero c eval dirpthlen = *zero c eval attpthoff = *zero * c ENDIF * C MOVE *ON *INLR