Passing Internal Tables to wa_itab inside Smartforms

[Former Member]

Hi Everyone,

I've been browsing thru this forum for about 2 hours now and I haven't been able to solve my problem.

Let me describe the situation,

I've created my SE38 ABAP program in which it already has the final internal table called 'it_header'. I want to print this onto my Smartform called 'ZRISPRINT', and so far i was able to do just that with mixed results. Please see my following example:

my se38 internal table:

it_header-projid(MYSAMPLEVALUE)

my output from smartform:

&gs_header-projid& (UE MYSAMPLEVAL)

As far as I understood within the ABAP forums, when passing SE38 internal tables into smartforms, it is REQUIRED to create an SE11 Structure in which will serve as a reference for my Workarea table (in my case, gs_header) variable defined inside the smartform itself.

-

---

The following is what i've defined so far:

My internal table defined in the SE38 program:

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

My created SE11 Structure:

ZRISPRINTHDR (I've created the structure in a way it matches all the data elements from table ZRIS above)

Form Interface > Tables Tab:

Parameter Name (IT_HEADER), Type Assignment (LIKE), Associated Type (ZRISPRINTHDR).

Global Definitions > Global Data Tab:

Variable Name (GS_HEADER), Type Assignment (LIKE), Associated Type (ZRISPRINTHDR).

Pages and Windows > %PAGE1 > MAIN Window > %TABLE1 > Data Tab:

Internal Table LOOP IT_HEADER INTO GS_HEADER.

-

---

I tried to disregard Smartforms for the meantime. I double checked the values via Se38 standard list and it displays all correct values.

From what I see, the Problem is within smartforms on when it tries to pass IT_HEADER data into GS_HEADER during the table loop.

Any inputs on this? Is there somekind of 'LOOP INTO CORRESPONDING' syntax i can set within smartforms?

Im thinking data elements, but again, i matched all the field data elements with table ZRIS and structure ZRISPRINTHDR.

Thanks and Regards ABAP experts!

[Former Member]

Hello,

Take your internal table into loop as in the Global definition area -

---

> initialization as: for eaxmple: say the case for SD

module

LOOP AT IT_INV INTO WA_INV.

WA_ITEM-VBELN = WA_INV-VBELN.

WA_ITEM-POSNR = WA_INV-POSNR.

WA_ITEM-MATNR = WA_INV-MATNR.

WA_ITEM-ITMNO = WA_INV-POSNR / 10.

SELECT SINGLE MAKTX INTO WA_ITEM-MAKTX

FROM MAKT

WHERE MATNR = WA_INV-MATNR.

Now declare the input output parameters options for the same. similarly define that variable portions whichever you wants to print in the global definition part only. It will work.

Regards,

Akg

[madhu_vadlamani]

Hi MIcahel,

1) Check the order of the fields 2) How the fields are declared ( type ).

Regards,

Madhu.

[madhu_vadlamani]

Hi Michael,

Things are fine. Tell me where you struck.

Regards,

Madhu.

[Former Member]

The problem is, my GS_HEADER workarea table is not retrieving my IT_HEADER data properly.

Example:

it_header = 'michael' >>>>>> gs_header = 'elmicha'

I've tried using the condense ABAP command before appending them to it_header, but its still not working.

[madhu_vadlamani]

HI Michael,

It is looking strange. What about that filed in debug mode.

Regards,

Madhu.

[Former Member]

hi,

DO one thing.

In the initialization area of smartform, write a piece of code to read it_header into gs_header.

Here check what values are coming.You will know if the structure is wrong.

[Former Member]

Hi Michael,

As i am not sure on the data types of each of the elements below, i mean what is zzprojid etc

Data: begin of it_header occurs 0,
projid LIKE zris-zzprojid,
wbsid LIKE zris-zzwbsid,
rofc LIKE zris-zzrofc,
cctr LIKE zris-zzcctr,
chac LIKE zris-zzchac,
purp LIKE zris-zzpurp,
shft LIKE zris-zzshft,
hstat LIKE zris-zzhstat,
ristyp LIKE zris-zzristype,
zdate LIKE zris-zzdate,
wctr LIKE zris-zzwctr,
reqby LIKE zris-zzreqby,
crtdby LIKE zris-zzcrtdby,
chngby LIKE zris-zzchngby,
dtcrtd LIKE zris-zzdatecreated,
dtchng LIKE zris-zzdatechanged1,
resnum LIKE zrish-zzresnum,
end of it_header.

There seems to be some type of mismatch somewhere, and to get to the root cause try and take the possible causes out.

One thing that pops out is your declaration IT_HEADER[] in your driver program.

Since you have already created a DDIC structure in SE11, use the same in your driver program too and check.

Data: IT_HEADER type standard table of ZRISPRINTHDR.

Regards,

Chen

[Former Member]

The field sequence of my it_header matches the sequence of my structure 'ZRISPRINTHDR'. The table ZRIS where my it_header is based from, I copied all the data elements to match the field types.

[Former Member]

Here are the table/structure information.

Format: <Component> <Component Type> <Data Type> <Length>

ZRISPRINTHDR Structure.----

---

RESNUM ZZRESNUM NUMC 10

PROJID PS_PSPID CHAR 24

WBSID PS_POSID CHAR 24

ROFC ZZROFC CHAR 24

CCTR ZZCCTR CHAR 10

PURP ZZPURP CHAR 50

CHAC ZZCHAC CHAR 50

SHFT ZZSHFT CHAR 24

HSTAT ZZHSTAT CHAR 30

RISTYP ZZRISTYPE CHAR 1

ZDATE ZZDATE1 DATS 8

WCTR ZZWCTR CHAR 8

REQBY ZZREQBY CHAR 24

CRTDBY ZZCRTDBY CHAR 12

CHNGBY ZZCHNGBY CHAR 12

DTCRTD ZZDATECREATED DATS 8

DTCHNG ZZDATECHANGED1 DATS 8

ZRIS Table----

---

MANDT MANDT CLNT 3

ZZRESNUM ZZRESNUM NUMC 10

ZZPROJ PS_PSPHI NUMC 8

ZZWBS PS_POSNR NUMC 8

ZZLINEITEM ZZLINEITEM NUMC 3

ZZRISTYPE ZZRISTYPE CHAR 1

ZZHSTAT ZZHSTAT CHAR 30

ZZPROJID PS_PSPID CHAR 24

ZZWBSID PS_POSID CHAR 24

ZZROFC ZZROFC CHAR 24

ZZROFCX ZZROFCX CHAR 24

ZZCCTR ZZCCTR CHAR 10

ZZCTRX ZZCTRX CHAR 10

ZZPURP ZZPURP CHAR 50

ZZCHAC ZZCHAC CHAR 50

ZZDATE ZZDATE1 DATS 8

ZZDATEX ZZDATEX DATS 8

ZZWCTR ZZWCTR CHAR 8

ZZWCTRX ZZWCTRX CHAR 8

ZZSHFT ZZSHFT CHAR 24

ZZSHFTX ZZSHFTX CHAR 24

ZZREQBY ZZREQBY CHAR 24

ZZREQBYX ZZREQBYX CHAR 24

ZZCRTDBY ZZCRTDBY CHAR 12

ZZCHNGBY ZZCHNGBY CHAR 12

ZZCHNGBYX ZZCHNGBYX CHAR 12

ZZDATECREATED ZZDATECREATED DATS 8

ZZDATECHANGED1 ZZDATECHANGED1 DATS 8

ZZDATECHANGED2 ZZDATECHANGED2 DATS 8

ZZMATNR MATNR CHAR 18

ZZMAKTX MAKTX CHAR 40

ZZCOST ZZCOST CURR 13

ZZPLNDQTY ZZPLNDQTY QUAN 8

ZZREQQTY ZZREQQTY QUAN 8

ZZREQQTYX ZZREQQTYX QUAN 8

ZZISSQTY ZZISSQTY QUAN 8

ZZAVAILQTY ZZAVAILQTY QUAN 8

ZZVALQTY ZZVALQTY CURR 13

ZZISTAT ZZISTAT CHAR 24

ZZCNGIND ZZCNGIND CHAR 1

ZZINSTOCKS ZZINSTOCKS CHAR 1

ZZREASON ZZREASON CHAR 24

ZZREASONX ZZREASONX CHAR 24

ZZFINAL_ISS ZZFINAL_ISS CHAR 1

ZZDELETE ZZDELETE CHAR 1

ZZCLSD ZZCLSD CHAR 1

ZZRESERV_NO RSNUM NUMC 10

ZZRES_ITEM RSPOS NUMC 4

Edited by: Michael Bryan Hernandez on Jul 4, 2011 11:51 AM

[Former Member]

Hi,

Can you just let us know one thing? Put a break-point in your print-program (driver program) where you are calling the function module for smartform and check if the internal table you are passing is having proper values in it?

I guess you smartform design is fine, there is some problem in your data-base select query in which you are pulling the details from the ZIRS table.

Cheers,

Anid

[Former Member]

Thanks for the reply,

But, how exactly do I code that?

I know where the Initialization Tab is, and i tried inputting the following:

Under Input Parameters : IT_HEADER

Under Output Parameters: GS_HEADER

Saved and Activated... same problem.

I'd like to learn how to debug the function module but, im clueless on how to set breakpoints inside it and get values for GS_HEADER.

[madhu_vadlamani]

Hi Micahael,

Go to smartform and keep any a break point in your code 2 Execute the form an fm you can see got to attributes click on include program and keep a debug point there. How is your code in driver program.

Regards,

Madhu.

[Former Member]

I actually have a portion in my print program (se38) where I loop at it_header.

loop at it_header.

write:/ <everything>.

endloop.

All the values are correct.

[madhu_vadlamani]

Hi,

Ok. Then try by keeping the debug in fm or diver program.

Regards,

Madhu.

[Former Member]

hi,

Under Input Parameters : IT_HEADER
Under Output Parameters: GS_HEADER

These you mention in parameters.Now in teh window below this, write the read statement.

Read it_header into wa_header index1.
if.
breakpoint.
endif.

and activate your code.Here yopu will see what values you get.

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO

[Former Member]

Here's how my program goes:

Data: FM_NAME TYPE RS38L_FNAM value '/1BCDWB/SF00000022'.

Data: begin of it_header occurs 0,

projid LIKE zris-zzprojid,

wbsid LIKE zris-zzwbsid,

rofc LIKE zris-zzrofc,

cctr LIKE zris-zzcctr,

chac LIKE zris-zzchac,

purp LIKE zris-zzpurp,

shft LIKE zris-zzshft,

hstat LIKE zris-zzhstat,

ristyp LIKE zris-zzristype,

zdate LIKE zris-zzdate,

wctr LIKE zris-zzwctr,

reqby LIKE zris-zzreqby,

crtdby LIKE zris-zzcrtdby,

chngby LIKE zris-zzchngby,

dtcrtd LIKE zris-zzdatecreated,

dtchng LIKE zris-zzdatechanged1,

resnum LIKE zrish-zzresnum,

end of it_header.

SELECT-OPTIONS: s_resnum FOR zrish-zzresnum.

select distinct zris_{zzresnum zris}zzprojid zris_{zzwbsid zris}zzrofc zris_{zzcctr zris}zzpurp zris_{zzchac zris}zzshft zris_{zzhstat zris}zzristype zris_{zzdate zris}zzwctr zris_{zzreqby zris}zzcrtdby zris_{zzchngby zris}zzdatecreated zris~zzdatechanged1

into (it_header-resnum, it_header-projid, it_header-wbsid, it_header-rofc, it_header-cctr, it_header-purp, it_header-chac, it_header-shft, it_header-hstat, it_header-ristyp, it_header-zdate, it_header-wctr, it_header-reqby, it_header-crtdby,

it_header-chngby, it_header-dtcrtd, it_header-dtchng)

from zris

where zris~zzresnum IN s_resnum.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZRISPRINT'

VARIANT = ' '

DIRECT_CALL = ' '

IMPO