Convert ABAP code to a flowchart

Is there any tool that can Convert ABAP code to a flowchart? Please give me the details like download link if there any.
Please help

Similar Messages

Convert ABAP code in start routine/update rule to transform. start routine

Dear BW ABAPers,
I have created a custom purchasing info cube (YCP_PURC1) based on 0CP_PURC1 standard cube. I would like to convert this new data flow to BI7 (from 3.x), and convert the standard update rule to transformation. I would need to rewrite the below start routine from the standard update rule to a start routine ABAP code in the newly created transformation / start routine. My ABAP knowledge is limited. Will you please help?
*this is the start routine from the update rule. As a side note, the data source is 2LIS_02_SCL.
LOOP AT SOURCE_PACKAGE.
 IF ( SOURCE_PACKAGE-cppvlc EQ 0
 AND SOURCE_PACKAGE-cppvoc EQ 0
 AND SOURCE_PACKAGE-cpquaou EQ 0 ).
 DELETE SOURCE_PACKAGE.
 CONTINUE.
 ENDIF.
no_scl is initial ( e.g. for good receipts, billing)
value has to be set depending on storno
 IF SOURCE_PACKAGE-no_scl IS INITIAL.
 IF SOURCE_PACKAGE-storno = 'X'.
 SOURCE_PACKAGE-no_scl = -1.
 ELSE.
 SOURCE_PACKAGE-no_scl = 1.
 ENDIF.
 MODIFY SOURCE_PACKAGE.
 ENDIF.
ENDLOOP.
if abort is not equal zero, the update process will be canceled
ABORT = 0.
Many thanks and look forward to your kind feedback.
Kind regards,
Csaba

Dear All, Durgesh,
thanks to you all for your valuable input. Mainly the ABAP part was more interesting for me.
Durgesh, thanks for your input, it was useful. I just had to change the info objects to data source fields and add the lines before the loop:
DATA: I_PACKAGE TYPE TYT_SC_1.
 FIELD-SYMBOLS <i_package> TYPE tys_sc_1.
 I_PACKAGE[] = SOURCE_PACKAGE[].
 LOOP AT SOURCE_PACKAGE assigning <i_package>.
 IF ( <i_package>-BWGEO EQ 0
 AND <i_package>-BWGEOO EQ 0
 AND <i_package>-BWMNG EQ 0 ).
 DELETE SOURCE_PACKAGE index sy-tabix.
 CONTINUE.
 ENDIF.
no_scl is initial ( e.g. for good receipts, billing)
value has to be set depending on storno
 IF <i_package>-NOSCL IS INITIAL.
 IF <i_package>-ROCANCEL = 'X'.
 <i_package>-NOSCL = -1.
 ELSE.
 <i_package>-NOSCL = 1.
 ENDIF.
 ENDIF.
 ENDLOOP.
Points have been assigned accordingly.
Thanks,
Csaba

Convert abap code to HTML

Hi Experts,
Can any body tell me, how to convert all abap codes in my SAP system to HTML format for creating backup, in one go.
Thanx
Rajiv Ranjan

HI,
I don't know if it wil be of any help. But you could always convert a ABAP report into a TXT file
DATA: I_LINES TYPE T_LINES OCCURS 1000.
DATA: BEGIN OF I_TEXT OCCURS 1000,
        TEXT(72).
DATA: END OF I_TEXT.
Read the source code into the internal table
READ REPORT ABAP INTO I_TEXT.
Loop over the source lines
    LOOP AT I_TEXT.
    Setup Transfer
      MOVE C_ID_SOURCE TO S_SOURCE-ID.
      MOVE I_TEXT-TEXT TO S_SOURCE-LINE.
    Fill up download file
       MOVE S_SOURCE-LINE TO WA_LINES.
      APPEND WA_LINES TO I_LINES.
    ENDLOOP.
CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
          BIN_FILESIZE        = ' '
          CODEPAGE            = ' '
            FILENAME            = FILENAME
            FILETYPE            = 'ASC'
            MODE                = ''
          WK1_N_FORMAT        = ' '
          WK1_N_SIZE          = ' '
          WK1_T_FORMAT        = ' '
          WK1_T_SIZE          = ' '
          COL_SELECT          = ' '
          COL_SELECTMASK      = ' '
       IMPORTING
            FILELENGTH          = W_FILE_LENGTH
       TABLES
            DATA_TAB            = I_LINES
       EXCEPTIONS
            FILE_OPEN_ERROR     = 1
            FILE_WRITE_ERROR    = 2
            INVALID_FILESIZE    = 3
            INVALID_TABLE_WIDTH = 4
            INVALID_TYPE        = 5
            NO_BATCH            = 6
            UNKNOWN_ERROR       = 7
            OTHERS              = 8.
Edited by: Jürgen Degraeve on Jan 15, 2008 3:52 PM
Edited by: Jürgen Degraeve on Jan 16, 2008 6:42 AM
Edited by: Jürgen Degraeve on Jan 16, 2008 6:49 AM

ABAP code needed to convert from 0calmonth2 & 0calyear to 0calmonth

Hi SAP GURUS,
Can anybody give me the ABAP code to convert from 0calmonth2 and 0calyear to 0calmonth.and please suggest me whether i have to write start routine or end routine in transformations.
Thanks ALL.

hi,
in the transformation map 0calmonth2 and 0calyear to the 0calmonth field, and from drop down choose routine.
there will be an area where it will be mentioned write your piece of code below this line.
paste the below code:
Concatenate source_fields-0calmonth2 source_fields-0calyear into result.
also delete the line result = .
save the routine and execute the package.
regards,
Arvind.

ABAP code in update rules to convert the date

Hi,
Could any one send me the ABAP code that is written in the update rules to convert the date (DD/MM/YYYY -- lenght 10) to YYYYMMDD --- length 8 format.
Also please let me know where I should write this code; while creating update rules or while creating infosource.
Thanks,

Hi Bharath,
Hi Bharath,
I suggest you do the conversion of dates in the transfer rules. Here is the correct code you need:
* Assuming the source data field is called MYDATE
* Place the ff. in the routine in the transfer rules:
concatenate tran_structure-mydate+6(4) tran_structure-mydate+3(2) tran_structure-mydate(2) into result.
replace MYDATE with the name of the source field (10 chars) in the transfer structure. Hope this helps.

GRR2- 4FM-RepPaint(put ABAP code for convert data in field)

Hi,
If somebody know how possible add ABAP code for convert data in some column-field of report (by RepWriter,UserExit,BADI)?
Thanks a lot.

Elaborate your question. Not clear ??

Error in ABAP code whield efining structures

Hello,
I am getting following error when I run ABAP code.
Tables: ZROLE_OWNER, ZROLEMAP, AGR_1251, AGR_USERS.
DATA: BEGIN OF I_ROLE occurs 0,
      ROLE LIKE ZROLE_OWNER-ROLE,
      END OF I_ROLE.
DATA: BEGIN OF I_RATT occurs 0,
      ROLENAME LIKE AGR_1251-AGR_NAME,
      OBJECT LIKE AGR_1251-OBJECT,
      FIELD LIKE AGR_1251-FIELD,
      LOW LIKE AGR_1251-LOW,
      HIGH LIKE AGR_1251-HIGH,
      END OF I_RATT.
DATA: WA_RATT LIKE I_RATT occurs 0.
SELECT ROLE from ZROLE_OWNER into table I_ROLE
            where SFLAG = ''.
LOOP AT I_ROLE.
*This will append all the values for above condition in WA-RATT.
SELECT AGR_NAME OBJECT FIELD LOW HIGH FROM AGR_1251
             INTO TABLE WA_RATT
             WHERE AGR_NAME = I_ROLE-ROLE.
APPEND WA_RATT TO I_RATT.
ENDLOOP.
I am getting error that WA_RATT cannot be converted to line type I_RATT.

hi,
Tables: ZROLE_OWNER, ZROLEMAP, AGR_1251, AGR_USERS.
DATA: BEGIN OF I_ROLE occurs 0,
ROLE LIKE ZROLE_OWNER-ROLE,
END OF I_ROLE.
DATA: BEGIN OF I_RATT occurs 0,
ROLENAME LIKE AGR_1251-AGR_NAME,
OBJECT LIKE AGR_1251-OBJECT,
FIELD LIKE AGR_1251-FIELD,
LOW LIKE AGR_1251-LOW,
HIGH LIKE AGR_1251-HIGH,
END OF I_RATT.
DATA: WA_RATT LIKE line of I_RATT .
SELECT ROLE from ZROLE_OWNER into table I_ROLE
where SFLAG = ''.
LOOP AT I_ROLE.
*This will append all the values for above condition in WA-RATT.
SELECT AGR_NAME OBJECT FIELD LOW HIGH FROM AGR_1251
INTO WA_RATT
   up to 1 rows
WHERE AGR_NAME = I_ROLE-ROLE.
endselect.
APPEND WA_RATT TO I_RATT.
ENDLOOP.
Thanks,
Rajinikanth.

SQL Command conversion in abap code

Hi,
I want to implement the UNION, INTERSECT and MINUS SQL commands in abap code. Please give me the appropriate solutions asap.
For Example:
select field1, field2, . field_n
from tables
UNION
select field1, field2, . field_n
from tables;
select field1, field2, . field_n
from tables
MINUS
select field1, field2, . field_n
from tables;
select field1, field2, . field_n
from tables
INTERSECT
select field1, field2, . field_n
from tables;
Thanks,
Ravi

Hi Ravi
Check out this procedure...
DATA: FRANKFURT(4) TYPE X,
 FRISCO(4) TYPE X,
 INTERSECT(4) TYPE X,
 UNION(4) TYPE X,
 BIT TYPE I.
DATA: CARRID TYPE SPFLI-CARRID,
 CARRIER LIKE SORTED TABLE OF CARRID
 WITH UNIQUE KEY TABLE LINE.
DATA WA TYPE SPFLI.
SELECT CARRID FROM SCARR INTO TABLE CARRIER.
SELECT CARRID CITYFROM FROM SPFLI
 INTO CORRESPONDING FIELDS OF WA.
WRITE: / WA-CARRID, WA-CITYFROM.
READ TABLE CARRIER FROM WA-CARRID TRANSPORTING NO FIELDS.
CASE WA-CITYFROM.
 WHEN 'FRANKFURT'.
 SET BIT SY-TABIX OF FRANKFURT.
 WHEN 'SAN FRANCISCO'.
 SET BIT SY-TABIX OF FRISCO.
ENDCASE.
ENDSELECT.
INTERSECT = FRANKFURT BIT-AND FRISCO.
UNION = FRANKFURT BIT-OR FRISCO.
SKIP.
WRITE 'Airlines flying from Frankfurt and San Francisco:'.
DO 32 TIMES.
GET BIT SY-INDEX OF INTERSECT INTO BIT.
 IF BIT = 1.
 READ TABLE CARRIER INDEX SY-INDEX INTO CARRID.
 WRITE CARRID.
 ENDIF.
ENDDO.
SKIP.
WRITE 'Airlines flying from Frankfurt or San Francisco:'.
DO 32 TIMES.
GET BIT SY-INDEX OF UNION INTO BIT.
 IF BIT = 1.
 READ TABLE CARRIER INDEX SY-INDEX INTO CARRID.
 WRITE CARRID.
 ENDIF.
ENDDO.
This produces the following output list:
The program uses four hexadecimal fields with length 4 - FRANKFURT, FRISCO, INTERSECT, and UNION. Each of these fields can represent a set of up to 32 elements. The basic set is the set of all airlines from database table SCARR. Each bit of the corresponding bit sequences representes one airline. To provide an index, the external index table CARRIER is created and filled with the airline codes from table SCARR. It is then possible to identify an airline using the internal index of table CARRIER.
In the SELECT loop for database table SPFLI, the corresponding bit for the airline is set either in the FRANKFURT field or the FRISCO field, depending on the departure city. The line number SY-TABIX is determined using a READ statement in which no fields are transported.
The intersection and union of FRANKFURT and FRISCO are constructed using the bit operations BIT-AND and BIT-OR.
The bits in INTERSECT and UNION are read one by one and evaluated in two DO loops. For each position in the fields with the value 1, a READ statement retrieves the airline code from the table CARRIER.
Comparing Bit Sequences
Use the following three operators to compare the bit sequence of the first operand with that of the second:
<operator>
Meaning
O
bits are one
Z
bits are zero
M
bits are mixed
The second operand must have type X. The comparison takes place over the length of the second operand. The first operand is not converted to type X.
The function of the operators is as follows:
O (bits are one)
The logical expression
<f> O <hex>
is true if the bit positions that are 1 in <hex>, are also 1 in <f>. In terms of set operations with bit sequences, this comparison is the same as finding out whether the set represented by <hex> is a subset of that represented by <f>.
Z (bits are zero)
The logical expression
<f> Z <hex>
is true if the bit positions that are 1 in <hex>, are 0 in <f>.
M (bits are mixed)
The logical expression
<f> M <hex>
is true if from the bit positions that are 1 in <hex>, at least one is 1 and one is 0 in <f>.
Caution: The following programs are no longer supported in Unicode systems:
REPORT demo_log_expr_bits .
DATA: text(1) TYPE c VALUE 'C',
 hex(1) TYPE x,
 i TYPE i.
hex = 0.
DO 256 TIMES.
i = hex.
IF text O hex.
 WRITE: / hex, i.
ENDIF.
hex = hex + 1.
ENDDO.
The output is as follows:
00 0
01 1
02 2
03 3
40 64
41 65
42 66
43 67
Here, the bit structure of the character 'C' is compared to all hexadecimal numbers HEX between '00' and 'FF' (255 in the decimal system), using the operator O. The decimal value of HEX is determined by using the automatic type conversion during the assignment of HEX to I. If the comparison is true, the hexadecimal number and its decimal value are displayed on the screen. The following table shows the bit sequences of the numbers:
Thanks
Ashok

LOOKUP-Master Data Attribute (ABAP Code)

Hi,
My requirment
ZCOMPANY is an attribute of ZCostcenter
ZCost center is an attribute ZEMPLOYEE
zcomp is an attribute of employee
While Loading attribute data to employee i need to write Lookup/routine in transformations that will
Based on ZCOSTCENTER data of an employee i has to read setup tables in BW and update ZCOMP of an employee(attribute) from ZCOMPANY of ZCostcenter
Please update me with the ABAP Code
Thanks in advance

Hi,
This is the routine written in transformations.
My requirment is to modify this a bit to include following conditions
1)source_fields-costcenter
(It needs to be converted to CAPS)(Bcaz ZCOSTCENTER consists all the caps)
2)I want to include 'OBJVERS'='A' in the code
Please update me with the code
select /bic/zcompany from /bic/mzcostcenter
into result
where zcostcenter = source_fields-costcenter.
end select.
Thanks

SQ01 DIsplay Problem (Can v write abap code ) Sql Query

Hi
Need help in SQL Query
I generated one sql query which has the following output in general .
Customer   name   description   amount
asrq1 sharekhan      Amount payed      10
asrq1 sharekhan     Amount Advance     20
asrq1 sharekhan    Amount due             30
but i need the output in the following way
Customer name AMount payed     Amount Advance                  Amount Due
asrq1   sharekhan 10    20     30
and iam new this sql query but came to know we can write code ..but iam unable to initiliaze to write
a peace of code as i dont know what are the select-options defined ..i saw in the include but didnt got it
% comes prefix of select-options,and iam unable to get he internal table which is displayed in the query .
can anyone help me in this answers will be awarded points.

First, I will suggest to go for ABAP report for this kinda requirement.
If you really want to go for it through SQ01, even then you will have to write some ABAP to display the records in one row. You will need to create three custom fields.
I will give Psudo for one field:
Field Name := ZAmountPayed
Select Amount_Payed into varAmountPayed from Table Where Emp# = '12345'
ZAmountPayed := varAmountPayed
Convert the above into relative ABAP code and create 2 more similar fields, and you should be all set.
You have to know the table names and any other calculations to get the right data.

Convert ABAP to Java

Hello everyone,
right now i have an ABAP-function-module which i have to convert into Java-Code.
My problem is: i don't really understand ABAP so i have some questions.
The part which i don't understand is this:
READ TABLE t_ctab INDEX f_char.
    IF sy-subrc EQ 0.
    CONCATENATE f_werks t_ctab-char1 INTO f_werks.
   ENDIF.
What happens here?
Thanks in advance.

Ok, thank you.
Hopefully the last question:
The next ABAP-Code snippet contains the main part which i have to translate.
It converts decimals into a char-sequence with a length of 4.
Example: 0010000 -> $),D
FORM umrechnung_dezimal_to_basis
                    TABLES   t_ctab STRUCTURE t_ctab
                     USING   i_werks
                    CHANGING o_werks.
*Read length of decimal
DATA:
f_stel TYPE i,
f_lines TYPE i.
DATA:
f_potenz TYPE i,
f_rest TYPE i.
DATA:
f_char TYPE i. "position of char
DATA:
f_werks TYPE ty_out-werks_i.
*determine base
DESCRIBE TABLE t_ctab LINES f_lines.
*delete leading zeros
WRITE i_werks TO f_werks NO-ZERO.
*delete leading whitespaces
CONDENSE f_werks.
*length of decimal
f_stel = strlen( f_werks ).
decimal to convert
f_rest = f_werks.
biggest potency
f_potenz = f_stel - 1.
CLEAR: f_werks.
conversion
DO f_stel TIMES.
    f_char = trunc( f_rest / f_lines ** f_potenz ) + 1.
    READ TABLE t_ctab INDEX f_char.
    IF sy-subrc EQ 0.
      CONCATENATE f_werks t_ctab-char1 INTO f_werks.
    ENDIF.
    f_rest   = f_rest MOD ( f_lines ** f_potenz ).
    f_potenz = f_potenz - 1.
ENDDO.
PERFORM format_i TABLES t_ctab
                 CHANGING f_werks
                          o_werks.
ENDFORM.                    " conversion

How to translate an excel macro to ABAP code

Hi Guys,
My requirement is need to put the subtotaling option w.r.t divison when i download the file to an excel sheet via OLE.
Iam able to get the records in the excel sheet but unable to write the macro in ABAP code.
the macro which i recorded in Excel is
Range("A1:C3").Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(3), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
how do i convert this into ABAP code .Pls help. Thanks...
the data might be like
NAME DIVISION AMOUNT
ABC IT 400
DEF BPO 500
HTG IT 400

Hi,
You can run an excel macro like this
CREATE OBJECT h_excel 'EXCEL.APPLICATION'.
Call Method of h_excel 'WORKBOOKS' = h_mapl.
set property of h_excel 'VISIBLE' = 0.
Call Method of h_mapl 'OPEN'
EXPORTING
#1 = d_file.
CALL METHOD OF H_EXCEL 'ActiveWorkbook' = h_book .
CALL METHOD OF H_book 'Activesheet' = H_sheet .
CALL METHOD OF h_excel 'RUN'
EXPORTING
#1 = ld_macro.
Check the links below as well
http://sample-code-abap.blogspot.com/2009/07/controlling-excel-using-ole-automation.html
http://arthur_ong.tripod.com/xab017.htm

ABAP code help for Bex broadcasting by event!

Hello
I'm trying to broadcast a report for a specific time period as per factory calendar. I tried using System Time Point :RSRD_BROADCAST_FOR_TIMEPOINT but its not showing when In the broadcaster when I put restriction of factory calendar so i followed below link: Broadcasting timepoint scheduled after an event and created a PC to start after event and created variant for RSRD_BROADCAST_STARTER setting ID as my Bes broadcast setting technical name.
When I trigger the event its processed and report emailed to me as I expected. Now I want to run this (Trigger) this event every Wed day after fisc quarter close. I wrote the below logic in se38 PROGRAM. But Now I need little help on how to trigger /run only on wed days after fisc quarter close ? Please update the below code or guide me on how to achieve this.
    CALL FUNCTION 'BP_EVENT_RAISE'
      EXPORTING
        EVENTID = ZFISC
endif.
Thanks

in your ABAP code try this,
calculate whether current date falls after fiscal year quarter. If so then check whether its a Wednesday and call the event raise FM. You can schedule this program in background daily basis.
Use this FM for day calculation DATE_TO_DAY.
This FM for converting sy-datum to fiscal year/period - FI_PERIOD_DETERMINE,DATE_TO_PERIOD_CONVERT

For RFC Sender " Is it must i need to write ABAP code " ?

Hi All
 I am learning XI but i have problem while creating RFC sender ?
 How to configure RFC sender? I must write ABAP code in R/3 side ?
Can any one expalin me indetail on this?
I see many links in SDN but i was not able to find the exact one
Adv..thanks and points
Rakesh

Hi ,
Go thru this data...
Configuring the Sender RFC Adapter 
Use
You configure the sender RFC adapter so that you can use it to convert RFC calls from a sender to XML messages and send these messages to the Integration Server.
Integration
You configure the adapter on the Parameters tab page during the definition of a communication channel. In addition to the adapter configuration, on the Module tab page in the module processor, you can specify generic modules, which give the adapter additional functions.
Prerequisites
 1. You have created a new communication channel or have opened an existing one.
 2. On the Parameter tab page you have selected the adapter type RFC.
 3. You have selected the Sender radio button to define the adapter as a sender adapter.
 4. The communication channel in which the RFC adapter is defined must be defined for a service of type Business System in the area Service Without Party.
 5. The specifications in the communication channel must match the specifications for the adapter-specific identifiers for the business system. For more information on adapter-specific identifiers, see: Service
Activities
Transport Protocol
The transport protocol is RFC.
Message Protocol
The message protocol is RFC (RFC XML).
Adapter Engine
Select the Adapter Engine on the Integration Server, or select a non-centrally installed Adapter Engine.
Adapter Status
Set the adapter to Active to enable messages to be exchanged.
RFC Server Parameters
The RFC server parameters identify the sender system.
Specify the following parameters:
Parameter Entry
Application server (Gateway) Gateway host of the sender system
Application server service (Gateway) Gateway service of the sender system
Program ID Program ID of the registered server program
Unicode Select this check box if the sender system is a Unicode system
Initial connections Number of initial connections required between sender system and adapter
Maximum connections Maximum possible number of initial connections required between sender system and adapter
Advanced mode Select this check box if you want to specify additional parameters of the class JCO.Server for the adapter configuration
Enter the name and values of the parameters in the table displayed
RFC Metadata Repository Parameters
The RFC metadata repository parameters identify the SAP system containing the repository for the RFC metadata. This does not necessarily have to be the sender system.
Specify the following parameters:
Parameter Entry
Load balancing Select this check box if your SAP system works with load balancing
Application server Host name of the SAP system (without load balancing)
System number System number of the SAP system (without load balancing)
Message server Host name of the message server (with load balancing)
Message server service Operating system service of the message server or message server port (with load balancing)
System ID System ID of the SAP system (with load balancing)
Logon group Logon group for the dynamic logon load (with load balancing)
Authentication Type Logon data for the SAP system
User Name SAP user name
User Password SAP user password
Logon language SAP logon language
Client SAP client
Advanced mode Select this check box if you want to specify additional parameters of the class JCO.Client for the adapter configuration
Enter the name and values of the parameters in the table displayed
Depending on the SAP system version, the following authorizations are required to read the metadata (authorization object: S_RFC, ACTVT: 16, FUGR):
Function Groups by R/3 Release
R/3 Release Function Groups (FUGRs)
As of 3.1H RFC1, SG00, SRFC, SUNI, SYST
As of 4.0A RFC1, SDIF, SG00, SRFC, SYST, SYSU, SUNI
As of 4.6A RFC1, SDIF, SG00, SRFC, SYST, SYSU
As of 4.6D RFC1, SDIFRUNTIME, SG00, SRFC, SYST, SYSU
As of SAP Web Application Server 6.20, the role SAP_BC_JSF_COMMUNICATION_RO is available, which is used for the user SAPJSF and contains all the required authorizations.
Regards,
Jayaram...

SPAD define pseudo printer to start ABAP code

Hello,
is it possible to define a pseudo printer which starts abap code ?
During the ABAP code we want to do different things with the spool. Maybe convert to another format PDF/RTF, save to a destination,.....
Or do you know an enhancement that we can use. My idea is to define a printer called SCRIPT. In the enhancement we check if this printer is used. If so we call a function module with our special code. At this time the spool request should already be written so we can use it for the different conversions.
Thanks
Arnfried

Hi,
Yes, it is possible to convert the SPOOL to PDF and we have it in our environment. The spool gets converted to PDF and get stored in physical location of server and we allowed the read only access to our functional folks.
However, I am not sure whether they are using Pseudo Code.
Please check below links
Convert spool to pdf and send in email sometimes attachment duplicated.
Convert spool to PDF and save it to the local drive
Thanks,
Sravanthi

Convert ABAP code to a flowchart

Similar Messages

Maybe you are looking for