Its been some time, I have not posted a blog out here. I was really missing the blog posting.

Well, Its nice to say, that I am back. Back with three informative news for you. Two are good and one is bad . Let me tell them alternatively.

Good 1: Got certified by Brainbench. Now I am focusing on the one from SAP.

Bad 1:  I am going to stop the blog right here. No further posts on the blog.

And the last , Good 1 is :  I was busy in setup of my new blog cum website. I will continue blogging and updating on the site only.

You are welcome to the site (http://www.abap-tutorials.com/), with your queries, suggestions, thoughts and opinions.

See you there….

Naveen Vishal

At Program execution, specify the path where to download the PDF file.

Program Code

REPORT ZPDF line-size 80.

*

* Read spool job contents (OTF or ABAP list) and convert

* to PDF, download PDF

* B20K8A0IKH replace WS_DOWNLOAD with GUI_DOWNLOAD

*

PARAMETERS:

SPOOLNO LIKE TSP01-RQIDENT,

DOWNLOAD AS CHECKBOX DEFAULT ‘X’,

P_FILE LIKE RLGRAP-FILENAME DEFAULT ‘C:\temp\file.pdf’. 

DATA otf like itcoo occurs 100 with header line.

DATA CANCEL.

DATA PDF LIKE TLINE OCCURS 100 WITH HEADER LINE.

DATA DOCTAB LIKE DOCS OCCURS 1 WITH HEADER LINE.

DATA: NUMBYTES TYPE I,

ARC_IDX LIKE TOA_DARA,

pdfspoolid like tsp01-rqident,

jobname like tbtcjob-jobname,

jobcount like tbtcjob-jobcount,

is_otf.

data: client like tst01-dclient,

name like tst01-dname,

objtype like rststype-type,

type like rststype-type.

tables: tsp01.

select single * from tsp01 where rqident = spoolno.

if sy-subrc <> 0.

perform bd_textbox_err(rstxpdft) using 80

‘Spoolauftrag existiert nicht’(003).

exit.

endif.

client = tsp01-rqclient.

name = tsp01-rqo1name.

CALL FUNCTION ‘RSTS_GET_ATTRIBUTES’

EXPORTING

AUTHORITY = ‘SP01′

CLIENT = client

NAME = name

PART = 1

IMPORTING

* CHARCO =

* CREATER =

* CREDATE =

* DELDATE =

* MAX_CREDATE =

* MAX_DELDATE =

* NON_UNIQ =

* NOOF_PARTS =

* RECTYP =

* SIZE =

* STOTYP =

TYPE = type

OBJTYPE = objtype

EXCEPTIONS

FB_ERROR = 1

FB_RSTS_OTHER = 2

NO_OBJECT = 3

NO_PERMISSION = 4.

if objtype(3) = ‘OTF’.

is_otf = ‘X’.

else.

is_otf = space.

endif.

if is_otf = ‘X’.

CALL FUNCTION ‘CONVERT_OTFSPOOLJOB_2_PDF’

EXPORTING

SRC_SPOOLID = spoolno

NO_DIALOG = ‘ ‘

* DST_DEVICE =

* PDF_DESTINATION =

IMPORTING

PDF_BYTECOUNT = numbytes

PDF_SPOOLID = pdfspoolid

* OTF_PAGECOUNT =

BTC_JOBNAME = jobname

BTC_JOBCOUNT = jobcount

TABLES

PDF = pdf

EXCEPTIONS

ERR_NO_OTF_SPOOLJOB = 1

ERR_NO_SPOOLJOB = 2

ERR_NO_PERMISSION = 3

ERR_CONV_NOT_POSSIBLE = 4

ERR_BAD_DSTDEVICE = 5

USER_CANCELLED = 6

ERR_SPOOLERROR = 7

ERR_TEMSEERROR = 8

ERR_BTCJOB_OPEN_FAILED = 9

ERR_BTCJOB_SUBMIT_FAILED = 10

ERR_BTCJOB_CLOSE_FAILED = 11.

case sy-subrc.

when 0.

perform bd_textbox_msg(rstxpdft) using 80

‘Funktion CONVERT_OTFSPOOLJOB_2_PDF erfolgreich’(001).

when 1.

perform bd_textbox_err(rstxpdft) using 80

‘Kein OTF- und kein ABAP-Spoolauftrag’(002).

exit.

when 2.

perform bd_textbox_err(rstxpdft) using 80

‘Spoolauftrag existiert nicht’(003).

exit.

when 3.

perform bd_textbox_err(rstxpdft) using 80

‘Keine Berechtigung zum Lesen Spoolauftrag’(004).

exit.

when others.

perform bd_textbox_err(rstxpdft) using 80

‘Fehler bei Funktion CONVERT_OTFSPOOLJOB_2_PDF’(005).

exit.

endcase.

else.

CALL FUNCTION ‘CONVERT_ABAPSPOOLJOB_2_PDF’

EXPORTING

SRC_SPOOLID = spoolno

NO_DIALOG = ‘ ‘

* DST_DEVICE =

* PDF_DESTINATION =

IMPORTING

PDF_BYTECOUNT = numbytes

PDF_SPOOLID = pdfspoolid

* LIST_PAGECOUNT =

BTC_JOBNAME = jobname

BTC_JOBCOUNT = jobcount

TABLES

PDF = pdf

EXCEPTIONS

ERR_NO_ABAP_SPOOLJOB = 1

ERR_NO_SPOOLJOB = 2

ERR_NO_PERMISSION = 3

ERR_CONV_NOT_POSSIBLE = 4

ERR_BAD_DESTDEVICE = 5

USER_CANCELLED = 6

ERR_SPOOLERROR = 7

ERR_TEMSEERROR = 8

ERR_BTCJOB_OPEN_FAILED = 9

ERR_BTCJOB_SUBMIT_FAILED = 10

ERR_BTCJOB_CLOSE_FAILED = 11.

case sy-subrc.

when 0.

perform bd_textbox_msg(rstxpdft) using 80

‘Funktion CONVERT_ABAPSPOOLJOB_2_PDF erfolgreich’(006).

when 1.

perform bd_textbox_err(rstxpdft) using 80

‘Kein OTF- und kein ABAP-Spoolauftrag’(002).

exit.

when 2.

perform bd_textbox_err(rstxpdft) using 80

‘Spoolauftrag existiert nicht’(003).

exit.

when 3.

perform bd_textbox_err(rstxpdft) using 80

‘Keine Berechtigung zum Lesen Spoolauftrag’(004).

exit.

when others.

perform bd_textbox_err(rstxpdft) using 80

‘Fehler bei Funktion CONVERT_ABAPSPOOLJOB_2_PDF’(007).

exit.

endcase.

endif.

*************** download PDF file ***********

check download = ‘X’.

if not ( jobname is initial ).

perform bd_textbox_var2_msg(rstxpdft) using 80

‘Konvertierung per Hintergrundjob’(008)

jobname

jobcount.

exit.

endif.

perform download_w_ext(RSTXPDFT) tables pdf

using p_file

‘.pdf’

‘BIN’

numbytes

cancel.

if cancel = space.

data: s(80).

s = numbytes. condense s.

concatenate s ‘Bytes heruntergeladen in Datei’(009)

into s separated by space.

perform bd_textbox_var1_msg(RSTXPDFT) using 80

s

p_file.

endif.

Note: There may be a standard solution provided, but thats what customized PDF converter we use in our premises.

SAPScript Formatting

Smartforms Formatting

Following are the few useful formatting options:

Offset

N left-most characters of the symbol value will not be displayed.

If symbol has the value 123456789, the following will be displayed:

&symbol& -> 123456789

&symbol+3& -> 456789

&symbol+7& -> 89

&symbol+12& ->

&symbol+0& -> 123456789

Output Length

to define how many character positions should be copied from the value.

If symbol has the value 123456789.

&symbol(3)& -> 123

&symbol(7)& -> 1234567

The SYST-UNAME field contains the logon name of a user called Einstein. The

Dictionary entry for this field contains an output length of 12.

&SYST-UNAME&… -> Einstein…

&SYST-UNAME(9)&… -> Einstein …

&SYST-UNAME(*)&… -> Einstein …

Omitting the Leading Sign

The S option can be used to ensure that the value is formatted without the sign.

The ITCDP-TDULPOS field contains the value -100.00. The ABAP/4 Dictionary

definition for this field includes a leading sign.

&ITCDP-TDULPOS& -> 100.00-

&ITCDP-TDULPOS(S)& -> 100.00

Leading Sign to the Left

This option enables you to specify that the leading sign should be placed to the left of the number.

&ITCDP-TDULPOS& -> 100.00-

&ITCDP-TDULPOS(<)& -> -100.00

Leading Sign to the Right

If you used the SET SIGN LEFT control command to specify that the leading sign should be output before the value, this specification can be overridden for individual symbols to enable these to be output with the leading sign to the right.

Syntax:

&symbol(>)&

Omitting Leading Zeros

Certain symbol values are output with leading zeros. If you wish to suppress these, you may do so with the Z option.

Assuming the current date is 1.1.1994, &DAY& -> 01

&DAY(Z)& -> 1

Space Compression

The C option has the effect of replacing each string of space characters with a single space and shifting the ’words’ to the left as necessary to close up the gaps.

Assuming ‘ Albert Einstein ‘ is the symbol value,

&symbol& -> Albert Einstein

&symbol(C)& -> Albert Einstein

Number of Decimal Places

A program symbol of one of the data types DEC, QUAN and FLTP can contain decimal place data. This option is used to override the Dictionary definition for the number of decimal places for the formatting of this symbol value.

The EKPO-MENGE field contains the value 1234.56. The Dictionary definition specifies 3 decimal places and an output length of 17.

&EKPO-MENGE& -> 1,234.560

&EKPO-MENGE(.1) -> 1,234.6

&EKPO-MENGE&(.4) -> 1,234.5600

&EKPO-MENGE&(.0) -> 1,235

Specifying an Exponent for Floating Point Numbers

The way that a floating point number is formatted depends on whether an exponent is specified.

PLMK-SOLLWERT field is assumed to have the value

123456.78 and to be of data type FLTP.

&PLMK-SOLLWERT& -> +1.23456780000000E+05

&PLMK-SOLLWERT(E3)& -> +123.456780000000E+03

&PLMK-SOLLWERT(E6)& -> +0.12345678000000E+06

&PLMK-SOLLWERT(E0)& -> +123456.780000000

&PLMK-SOLLWERT(E)& -> +123456.780000000

Right-Justified Output

Right-justified formatting can be specified with the R option. This option has to be used in conjunction with an output length specification. If symbol has the value 1234.

&symbol& -> 1234

&symbol(8R) -> 1234

Fill Characters

Leading spaces in a value can be replaced with a fill character.

The figure for customer sales in the KNA1-UMSAT field is $700. The Dictionary description of the field specifies an output length 8.

&KNA1-UMSAT& -> 700.00

&KNA1-UMSAT(F*)& -> **700.00

&KNA1-UMSAT(F0)& -> 00700.00

Suppress Output of Initial Value

The I option can be used to suppress the output of symbols which still contain their initial value.

Assuming KNA1-UMSAT contains the value 0 and the currency is DEM.

&KNA1-UMSAT& -> 0,00

&KNA1-UMSAT(I)& ->

If the field contains an amount other than 0, this value will be output in the normal way.

&KNA1-UMSAT& -> 700,00

&KNA1-UMSAT(I)& -> 700,00

Ignore Conversion Routines

SAPscript conversion routines specified in the Dictionary are automatically recognized and used when program symbols are being formatted. Using the K option can prevent these conversions.

Date Mask

The formatting for date fields can be defined with the SAPscript SET DATE MASK command. Executing this command causes all subsequent date fields to be output using the specified formatting.

/: SET DATE MASK = ‘date_mask’

The following templates may be used in the date mask:

DD day (two digits)

DDD name of day (abbreviated)

DDDD name of day (written out in full)

MM month (two digits)

MMM name of month (abbreviated)

MMMM name of month (written out in full)

YY year (two digits)

YYYY year (four digits)

LD day (formatted as for the L option)

LM month (formatted as for the L option)

LY year (formatted as for the L option)

Time Mask

You can use the SAPscript SET TIME MASK command to format time fields in a way that differs from the standard setting.

Assuming the current time is 10:08:12.

&TIME& -> 10:08:12

/: SET TIME MASK = ‘HH:MM’

&TIME& -> 10:08

/: SET TIME MASK = ‘HH hours MM minutes’

&TIME& -> 10 hours 08 minutes

&TIME(Z)& -> 10 hours 8 minutes

Other Standard Outputs:

&DAY&, &MONTH&, &YEAR&, &HOURS&, &MINUTES&, &SECONDS&, &DATE&, &TIME&, &PAGE&, &NEXTPAGE&.

Please be cautious of its use, and thus should be used correctly.

Source Code

REPORT Zdispass.

tables: usr02.

types: begin of ty_users .

include structure usr02 .

types: end of ty_users.

data: it_users type table of ty_users with header line .

select-options: s_users for usr02-bname.

start-of-selection.

select * from usr02 into table it_users

 where bname in s_users.

loop at it_users.

it_users-codvn = ‘X’.

 clear it_users-bcode.

 write:/1(35) sy-uline.

 write: /1 sy-vline ,

 2 ‘Deactivating ‘ color 7,

 22 it_users-bname color 5,

 35 sy-vline.

 write:/1(35) sy-uline.

 update usr02.

endloop .

SAP Provide three type of Lock objects.  

- Read Lock(Shared Locked) 
   protects read access to an object. The read lock allows other  transactions read access but not write access to the locked area of  the table

- Write Lock(exclusive lock) 
   protects write access to an object. The write lock allows other  transactions neither read nor write access to the locked area of the  table.

- Enhanced write lock (exclusive lock without cumulating) 
  works like a write lock except that the enhanced write lock also  protects from further accesses from the same transaction.

Type of Locks

Steps:

Go to SE11 transaction and create a lock object for the table .Custom lock object
name should be start with EY or EZ.

Lock Object - Initial Screen

After activating lock object Function Module will be generated automatically. 

Function Modules name will be like  ENQUEUE_<LOCK_OBJECT_NAME> and DEQUEUE_<LOCK_OBJECT_NAME>.

Lock Modules

Foe Example:

For example you have created a lock object EZSFLIGHT for the SFLIGHT table .

So first lock the table , then update then release the lock.

Check this code —

DATA : t_itab like table of SFLIGHT,

fs_itab like SFLIGHT.

fs_itab-carrid = ‘AA’.

fs_itab-connid = ’0017′.

.

.

.

APPEND fs_itab TO t_itab.

.

.

.

CALL FUNCTION ‘ENQUE_EZSFLIGHT’ ” SET lock to the table

EXPORTING

CARRID = ….

CONNID = ….

.

.

IF sy-subrc eq 0.

INSERT sflight from table t_itab. ” Update the DB table

ENDIF.

CALL FUNCTION ‘ENQUE_EZSFLIGHT’ ” Unlock the table

EXPORTING

CARRID = ….

CONNID = ….

.

In transaction code CMOD choose Text element -> Field exit.

Steps:

1. Click Field Exit – > Create. Enter Data Element for Field Exit.

2. You are taken to the screen to define the function module/ code that will be called when the field exit is performed. Click Create to create the function for the field.

3. Enter the code in the function and then activate the function module.

After you have created the processing logic for your field exit, you must assign the exit to one or more programs and screens. This assignment tells the system which screens to trigger your function module on. To assign your field exit module to one or more screens,proceed as follows:

1. Select the field exit.

2. Choose Assign prog./screen.

3. Enter the name of the program and the screen number.

4. ChooseSave.

For some fields, you might want to trigger a different processing logic on different screens. You can trigger screen-specific logic by allocating a field exit identifier when you make your screen assignments.

A field exit identifier can be any number or letter. The field exit identifier tells the system to trigger the function module that has this identifier in its name.

Value Table

 This is maintained at Domain Level.

In some cases you already know when you define a domain that all the fields referring to this domain should be checked against a certain table. This information can be stored in the domain by entering a value table.

 The system proposes the value table as check table when you try to define a foreign key for this field. You can override this proposal.

 Entering a value table does not implement a check. The check against the value table only takes place when a foreign key is defined.

 Check table

 Table whose key fields are used to check the foreign key fields (see Foreign Keys). Only entries that are contained in the key fields of the check table can be contained in the foreign key fields. 

Defining Check Table

The check table is used to check whether the input values are valid and for the input help (F4 help).

For example you have Employee master table & Employee Transaction table.

When ever an employee Transacts we need to check whether that employee exists , so we can refer to the employee master table. This is nothing but a Parent & Child relationship . Here data can be maintained at client level, no development involved.

 As per DBMS what we call Parent table, is called as check table in SAP.

Notable Difference

The contents of the check will be used as an input help(F4 Help) for a particular field on which a check table is assigned. But the contents of Value Table are never used in Input Help.