We want to start storing AFP reports in View.
Can you please provide a process to do that?
Release : 14.0
Component : CA View
AFP reports are collected in View via a SARFSS task:
//VWV14FSS JOB (...),'CA VIEW FSS',CLASS=C,MSGCLASS=X
//VWV14FSS PROC
//SARFSS01 EXEC PGM=SARFSS,TIME=1440,REGION=400M
//STEPLIB DD DISP=SHR,DSN=view_hlq.CVDELOAD <=== Modify, if used
// DD DISP=SHR,DSN=xxxxxx.APK.ACIF.SAPKMOD1
//SARINDEX DD DISP=SHR,DSN=view_hlq.SARINDEX
//PRT73 DD DISP=SHR,DSN=view_hlq.CVDEOPTN(PRT73ACF)
//SARLOG DD SYSOUT=X
// PEND
//VWV14FSS EXEC VWV14FSS
//
The following are the JES2 device control statements for PRT73 (member PRF73ACF):
TYPE=ACIF
ARCHMSG=YES
You define a virtual printer to associate to a SARFSS task:
/$P PRT73
/$ADD FSSDEF(V140ACIF),PROC=VWV14FSS,AUTOSTOP=YES
/$T FSSDEF(V140ACIF),PROC=VWV14FSS,AUTOSTOP=YES
/$ADD PRT73,MODE=FSS,FSS=V140ACIF
/$TPRT73,MODE=FSS,FSS=V140ACIF
/$TPRT73,CLASS=K,FORMS=VIEW,PRMODE=(ACIF)
/$TPRT73,WS=(Q,F,PRM/R,W,LIM,UCS,FCB)
/$SPRT73
You execute the virtual printer statements, to start the SARFSS task.
You stop the virtual printer, to stop the SARFSS task.
Below is sample JCL to submit a job, to process an AFP report:
//XXXXXXXX JOB ...
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=X
//OUTPUTAC OUTPUT PRMODE=ACIF
//SYSUT1 DD DISP=SHR,DSN=xxxxxx.xxxxxx.AFPREPT1
//SYSUT2 DD OUTPUT=*.OUTPUTAC
//SYSIN DD DUMMY
//
For information on indexing AFP reports, please go to the following URL:
Under heading "IBM ACIF Control Statements", please note the TRIGGERn, FIELDn, and INDEXn statements, to identify index placements and names.