Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

hi all, need data file and co file after single transport in 6.4 or 6.7

hi all

following is the requirement

To process/compile the attached programs (given below) in 6.4/7 Kernel (SAP 6.4 version or 6.7 version )and send a single transport (Data File and Co File).

these data file and co file are flat files.

CAN ANYONE HELP ME GETTING THESE FLAT FILES. I need these flat files urgently.

WHAT U HAVE TO DO IS:

IF U HAVE 6.4 OR 6.7 VERSION, JUST TRANSPORT FOLLOWING 10 PROGRAMS IN SINGLE TRANSPORT IN TESTING SYSTEM OR DEVELOPEMENT SYSTEM AND AFTER GETTING DATA FILE AND CO FILE U CAN REVERT THE TRANSPORT.

Programs files are as follows: (total number of prog is 10)

1.

FUNCTION Z_3N_CKS_EXIST_USER .

*"----


""Local interface:

*" IMPORTING

*" VALUE(CKSUSRID) TYPE USR02-BNAME

*" VALUE(CKSMDTID) TYPE USR02-MANDT DEFAULT SY-MANDT

*" EXPORTING

*" VALUE(RCODE) TYPE SY-SUBRC

*" EXCEPTIONS

*" USER_DONT_EXIST

*" USER_EXISTS

*"----


  • FUNCTION TO CHECK IF USER EXISTS

CLEAR RCODE.

CALL FUNCTION 'USER_EXISTS'

EXPORTING

BNAME = CKSUSRID

CLIENT = CKSMDTID

EXCEPTIONS

USER_DONT_EXIST = 1

USER_EXISTS = 0.

RCODE = SY-SUBRC.

ENDFUNCTION.

2.

FUNCTION Z_3N_CKS_LOCKSTATE.

*"----


""Local interface:

*" IMPORTING

*" VALUE(CKSUSRID) TYPE USR02-BNAME

*" EXPORTING

*" VALUE(RCODE) TYPE SY-SUBRC

*"----


  • FUNCTION TO OBTAIN THE CURRENT LOCK STATUS FOR A USER

*{ PASSGOAPR06

*\DATA:LOCKSTATE(50) type c,

*\C_LOCKED_BY_ADMIN like usr02-uflag.

*\tables:usr02.

DATA:LOCKSTATE(50) type c.

*} PASSGOAPR06

CLEAR: RCODE, LOCKSTATE.

SELECT SINGLE * FROM USR02 WHERE BNAME = CKSUSRID.

IF SY-SUBRC <> 0.

RCODE = 01. "No such User

EXIT.

ENDIF.

*{ PASSGOAPR06

  • IF USR02-UFLAG Z C_LOCKED_BY_ADMIN AND

  • USR02-UFLAG Z C_LOCKED_BY_FAILED_LOGON.

  • LOCKSTATE = 'UNLOCKED'.

  • RCODE = 00.

  • ELSE.

  • IF USR02-UFLAG O C_LOCKED_BY_FAILED_LOGON.

  • LOCKSTATE = 'LOCKED_BY_FAILED_LOGON'.

  • RCODE = 02.

  • ENDIF.

  • IF USR02-UFLAG O C_LOCKED_BY_ADMIN.

  • LOCKSTATE = 'LOCKED_BY_ADMIN'.

  • RCODE = 02.

  • ENDIF.

  • ENDIF.

uflag = usr02-uflag.

IF UFLAG Z C_LOCKED_BY_ADMIN AND

UFLAG Z C_LOCKED_BY_FAILED_LOGON.

LOCKSTATE = 'UNLOCKED'.

RCODE = 00.

ELSE.

IF UFLAG O C_LOCKED_BY_FAILED_LOGON.

LOCKSTATE = 'LOCKED_BY_FAILED_LOGON'.

RCODE = 02.

ENDIF.

IF UFLAG O C_LOCKED_BY_ADMIN.

LOCKSTATE = 'LOCKED_BY_ADMIN'.

RCODE = 02.

ENDIF.

ENDIF.

*} PASSGOAPR06

ENDFUNCTION.

3.

FUNCTION Z_3N_CKS_PWDCHG_INITIAL.

*"----


""Local interface:

*" IMPORTING

*" VALUE(CKSUSRID) TYPE USR02-BNAME

*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE

*" EXPORTING

*" VALUE(RCODE) TYPE SY-SUBRC

*" TABLES

*" RETURN STRUCTURE BAPIRET2

*"----


  • FUNCTION TO INITIALISE USERs PASSWORD, USER WILL BE FORCED

  • TO CHANGE PASSWORD ON NEXT LOGIN

CLEAR: USR02, RCODE.

SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.

IF SY-SUBRC <> 0.

RCODE = 01.

else.

CALL FUNCTION 'BAPI_USER_CHANGE'

EXPORTING

USERNAME = CKSUSRID

PASSWORD = CKSUSRPWD

PASSWORDX = 'X'

TABLES

RETURN = RETURN.

loop at return.

if return-type eq 'E' or return-type eq 'A'.

rcode = 13.

endif.

endloop.

endif.

ENDFUNCTION.

4.

FUNCTION Z_3N_CKS_VERIFY_USER.

*"----


""Local interface:

*" IMPORTING

*" VALUE(CKSUSRID) TYPE RSYST-BNAME

*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE OPTIONAL

*" EXPORTING

*" VALUE(RCODE) TYPE SY-SUBRC

*"----


  • FUNCTION TO VALIDATE A USER

*{ PASSGOAPR06

TABLES:USR02.

CLEAR: USR02, RCODE.

SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.

IF SY-SUBRC = 4.

RCODE = 01. "no such user

EXIT.

ELSEIF CKSUSRPWD = SPACE.

RCODE = 03. "invalid old password

EXIT.

ELSE.

CALL FUNCTION 'SUSR_LOGIN_CHECK_RFC'

EXPORTING

BNAME = CKSUSRID

PASSWORD = CKSUSRPWD

EXCEPTIONS

WAIT = 1

USER_LOCKED = 2

USER_NOT_ACTIVE = 3

PASSWORD_EXPIRED = 4

WRONG_PASSWORD = 5

NO_CHECK_FOR_THIS_USER = 6

INTERNAL_ERROR = 7

OTHERS = 8

CASE SY-SUBRC.

WHEN '2'. RCODE = 02. "user disabled/blocked

WHEN '3'. RCODE = 02. "user disabled/blocked

WHEN '4'. RCODE = 03. "invalid old password

WHEN '5'. RCODE = 03. "invalid old password

WHEN '8'. RCODE = 12. "internal error

ENDCASE.

ENDIF.

*} PASSGOAPR06

ENDFUNCTION.

5.

&----


*& Include ZMS01JTOP *

&----


PROGRAM MS01JTOP MESSAGE-ID 01 LINE-SIZE 132. "Berechtigungsdatenpflege

  • 13.08.93

INCLUDE MS01CTP2.

INCLUDE MS01CTCO.

TABLES: XU200, XU213, XU310, XU350, XU390, XU400.

TABLES: TSTC, TSP03, TPARA, TPARAT.

TABLES: *USR01, *USR03, USR15.

TABLES: SOUD, SOUD3.

*ABLES: ZCSA, ADRS.

*{ PASSGOAPR06

TABLES: usr02.

DATA: uflag type x.

DATA: begin of return occurs 0.

INCLUDE structure bapiret2.

DATA: end of return.

DATA calling_cksusrid like usr02-bname.

DATA: init_pass like BAPIPWD.

INCLUDE USER_CONSTANTS.

*

*} PASSGOAPR06

CONTROLS TC213 TYPE TABLEVIEW USING SCREEN 213.

CONTROLS TC520 TYPE TABLEVIEW USING SCREEN 350.

DATA: COPYOK TYPE I,

RENAMEOK TYPE I,

DATFM1,

DATFM2,

DATFM3,

DATFM4,

DCPFM1,

DCPFM2,

USERNAME LIKE USR01-BNAME,

LOCK,

UNLO,

STATFLAG TYPE I VALUE 0,

NAVIFLAG TYPE I VALUE 0,

PARTOPIX TYPE I,

PARFILL TYPE I,

PARAMETER LIKE USR05-PARVA,

PARID LIKE USR05-PARID,

PARLOOP LIKE SY-STEPL,

SHOW_ONLY VALUE ' ',

INTPRO_LOADED TYPE I VALUE 0,

EXT_SECURITY VALUE ' '.

DATA: H_201_USGRP LIKE USGRP-USERGROUP,

H_201_VALID TYPE C,

CC201 LIKE SY-CUCOL VALUE 2,

CR201 LIKE SY-CUROW VALUE 6,

SAVE_LINE201 LIKE SY-LILLI VALUE 1,

SAVE_LSIND201 LIKE SY-LSIND VALUE 1.

DATA: OFFICENAME LIKE SOUD-USRNAM.

DATA: BEGIN OF NAME_IN.

INCLUDE STRUCTURE SOUD3.

DATA: END OF NAME_IN.

DATA: BEGIN OF NAME_OUT.

INCLUDE STRUCTURE SOUD3.

DATA: END OF NAME_OUT.

DATA: BEGIN OF EMPTYPROF OCCURS 2.

INCLUDE STRUCTURE USREF.

DATA: END OF EMPTYPROF.

DATA: BEGIN OF PROFILES OCCURS 10.

INCLUDE STRUCTURE USREF.

DATA: END OF PROFILES.

DATA: MAXPAR TYPE I VALUE 300.

DATA: BEGIN OF TABPAR OCCURS 300,

PARID LIKE USR05-PARID,

PARVA LIKE USR05-PARVA,

END OF TABPAR.

DATA: BEGIN OF DELTAB OCCURS 50,

USGRP LIKE USR02-CLASS,

END OF DELTAB.

DATA: BEGIN OF ADDTAB OCCURS 50,

USGRP LIKE USR02-CLASS,

END OF ADDTAB.

DATA: BEGIN OF ADDRESS_DATA.

INCLUDE STRUCTURE SADRP_USR.

DATA: END OF ADDRESS_DATA.

*

DATA:

CLEAR TYPE X VALUE '00'.

*ATA: BEGIN OF ADRSDATEN.

  • INCLUDE STRUCTURE ADRS.

*ATA: END OF ADRSDATEN.

  • 06.10.95 Tosun

DATA 930_FLAG.

"$$

6.

FUNCTION Z_3N_CKS_LOCK_USER.

*"----


""Local interface:

*" IMPORTING

*" VALUE(CKSUSRID) TYPE USR02-BNAME

*" EXPORTING

*" VALUE(RCODE) TYPE SY-SUBRC

*"----


CLEAR RCODE.

*{ PASSGOAPR06

*\ PERFORM LOCK_USER IN PROGRAM ZSAPMS01J USING CKSUSRID.

*\ IF SY-SUBRC <> 0.

*\ RCODE = SY-SUBRC.

*\ EXIT.

*\ ELSE.

*\ COMMIT WORK.

*\ ENDIF.

  • the report (form) is dumping.

  • so we try it with the correct BAPI

CALL FUNCTION 'BAPI_USER_LOCK'

EXPORTING

USERNAME = CKSUSRID

TABLES

RETURN = return

.

IF return-type <> 'S'.

RCODE = '8'.

rollback work.

EXIT.

ENDIF.

*} PASSGOAPR06

ENDFUNCTION.

7.

FUNCTION Z_3N_CKS_PWDCHG_DIRECT.

*"----


""Local interface:

*" IMPORTING

*" VALUE(CKSUSRID) TYPE USR02-BNAME

*" VALUE(CKSUSRPWD) TYPE RSYST-BCODE

*" EXPORTING

*" VALUE(RCODE) TYPE SY-SUBRC

*" TABLES

*" RETURN STRUCTURE BAPIRET2

*"----


  • FUNCTION TO CHANGE USERs PASSWORD

  • Password is initialised to a fixed value,

  • to avoid having to provide the valid old password

  • If the password change fails, the change is

  • rolled back - this is required because

  • BAPI_USER_CHANGE does an internal commit.

CLEAR: USR02, RCODE.

DATA: L_TIME LIKE SY-UZEIT,

ZLIN TYPE I.

*{ PASSGOAPR06

calling_cksusrid = cksusrid. "Save calling userid

init_pass = 'INITPASS'.

*} PASSGOAPR06

do 1 times.

SELECT SINGLE * from USR02 WHERE BNAME = CKSUSRID.

IF SY-SUBRC <> 0.

RCODE = 1.

else.

  • * Change login to initpass.

CALL FUNCTION 'BAPI_USER_CHANGE'

EXPORTING

USERNAME = CKSUSRID

*{ PASSGOAPR06

*\ PASSWORD = 'INITPASS'

PASSWORD = init_pass

*} PASSGOAPR06

PASSWORDX = 'X'

TABLES

RETURN = RETURN.

  • * Evaluate return table, if not success, rcode = 13

describe table return lines zlin.

IF zlin > 0.

IF return-type ne 'S'.

rcode = 13.

exit.

ENDIF.

ENDIF.

  • * Wait 1 second, otherwise table ush02 gets the same key as before.

  • * Not very good, but its the only way, because the wait up to

  • * statement includes a db-commit.

L_TIME = sy-uzeit.

WHILE L_TIME = sy-uzeit.

GET TIME.

ENDWHILE.

  • * Change 'INITPASS' to input login

CALL FUNCTION 'SUSR_USER_CHANGE_PASSWORD_RFC'

EXPORTING

BNAME = CKSUSRID

PASSWORD = 'INITPASS'

NEW_PASSWORD = CKSUSRPWD

NEW_BCODE = '0000000000000000'

NEW_CODVN = ' '

EXCEPTIONS

CHANGE_NOT_ALLOWED = 1

PASSWORD_NOT_ALLOWED = 2

INTERNAL_ERROR = 3

CANCELED_BY_USER = 4

OTHERS = 5.

case sy-subrc.

when '0'. rcode = 0.

when '1'. rcode = 2.

when '2'. rcode = 4.

when '3'. rcode = 12.

when '4'. rcode = 2.

when '5'. rcode = 12.

ENDCASE.

ENDIF.

exit. "end of do 1 times "

enddo.

  • * rollback if it didn't work

if not rcode is initial.

rollback work.

endif.

ENDFUNCTION.

8.

FUNCTION Z_3N_CKS_UNLOCK_USER.

*"----


""Local interface:

*" IMPORTING

*" VALUE(CKSUSRID) TYPE USR02-BNAME

*" EXPORTING

*" VALUE(RCODE) TYPE SY-SUBRC

*"----


CLEAR RCODE.

*{ PASSGOAPR06

*\ PERFORM UNLOCK_USER IN PROGRAM ZSAPMS01J USING CKSUSRID.

*\ IF SY-SUBRC <> 0.

*\ RCODE = SY-SUBRC.

*\ EXIT.

*\ ELSE.

*\ COMMIT WORK.

*\ ENDIF.

  • the report (form) is dumping.

  • so we try it with the correct BAPI

CALL FUNCTION 'BAPI_USER_UNLOCK'

EXPORTING

USERNAME = CKSUSRID

TABLES

RETURN = return

.

IF return-type <> 'S'.

RCODE = '8'.

rollback work.

EXIT.

ENDIF.

*} PASSGOAPR06

ENDFUNCTION.

9.

&----


*& Include ZMS01JO10 *

&----


  • MS01JO10 Module before Output

  • 14.05.93

----


  • MODULE D150_SELECT *

----


  • Einen Eintrag aus der Liste uebernehmen. *

  • *

----


MODULE D150_SELECT OUTPUT.

IF SELE = 1.

IF SY-LILLI < 3.

MESSAGE S209.

ELSE.

IF USRFLAG = 10 AND SY-LILLI = 3.

MESSAGE S209.

ELSE.

IF USRFLAG = 10.

XU150-VON = SY-LISEL.

ELSE.

COUNTX = PUSR - 1.

ASSIGN SY-LISEL+COUNTX(12) TO <TEXT>. " unicode

WRITE <TEXT> TO XU150-VON.

ENDIF.

ENDIF.

ENDIF.

SELE = 0.

ENDIF.

IF FERTIG = 2.

FCODE = 'BACK'.

SUPPRESS DIALOG.

ENDIF.

ENDMODULE.

----


  • MODULE D150_SETSTATUS *

----


  • PF-Status setzen *

  • *

----


MODULE D150_SETSTATUS OUTPUT.

PERFORM SET_STATUS USING 150.

XU150-SELPROF = XU150-SELFEST = XU150-SELADRE = XU150-SELPARA = 'X'.

XU150-SELMENU = 'X'.

ENDMODULE.

----


  • MODULE D155_SETSTATUS *

----


  • PF-Status setzen *

  • *

----


MODULE D155_SETSTATUS OUTPUT.

PERFORM SET_STATUS USING 155.

ENDMODULE.

----


  • MODULE D200_SELECT *

----


  • Einen Eintrag aus der Liste ins Dynpro uebernehmen *

  • *

----


MODULE D200_SELECT OUTPUT.

IF SELE = 1.

IF SY-LILLI < 3.

MESSAGE S209.

ELSE.

XU200-XUSER = SY-LISEL.

ENDIF.

SELE = 0.

ENDIF.

IF FCODE2 = 'USER' OR FCODE2 = 'FEST' OR FCODE2 = 'ADRE' OR

FCODE2 = 'PARA' OR FCODE2 = 'ADMI' OR FCODE2 = 'RESE' OR

FCODE2 = 'N '.

SUPPRESS DIALOG.

ENDIF.

PERFORM SET_STATUS USING 200.

ENDMODULE.

----


  • MODULE D213_VALOUT *

----


  • Festwerte auf das Dynpro schreiben. *

  • *

----


MODULE D213_VALOUT OUTPUT.

DEL = 0.

XU213-DIA = '.'.

XU213-ODC = '.'.

XU213-BDC = '.'.

XU213-CPIC = '.'.

XU213-BATCH = '.'.

CASE USR02-USTYP.

WHEN TYPDIA.

XU213-DIA = 'X'.

WHEN TYPBATCH.

XU213-BATCH = 'X'.

WHEN TYPCPIC.

XU213-CPIC = 'X'.

WHEN TYPBDC.

XU213-BDC = 'X'.

WHEN TYPODC.

XU213-ODC = 'X'.

ENDCASE.

IF USR02-LTIME <> SPACE AND USR02-LTIME <> '000000'.

LOOP AT SCREEN.

CASE SCREEN-GROUP1.

WHEN 'MOD'.

SCREEN-INVISIBLE = '1'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

SET CURSOR FIELD 'USR02-CLASS'.

IF F <> ' ' AND L <> 0.

SET CURSOR FIELD F LINE L.

ENDIF.

CODEFLAG = 1.

ELSE.

CLEAR XU213-BCODE.

CLEAR XU213-BCODE2.

IF USR02-BCODE <> '0000000000000000' AND BCODE_C = SPACE.

CODEFLAG = 0.

ENDIF.

IF CODEFLAG = -2.

SET CURSOR FIELD 'XU213-BCODE'.

MESSAGE S290.

ELSE.

SET CURSOR FIELD 'USR02-CLASS'.

IF F <> ' ' AND L <> 0.

SET CURSOR FIELD F LINE L.

ENDIF.

ENDIF.

ENDIF.

ENDMODULE.

----


  • MODULE D213_SELECT *

----


  • Einen Eintrag aus der Liste uebernehmen. *

  • *

----


MODULE D213_SELECT OUTPUT.

IF SELE = 1.

IF SY-LILLI < 4.

MESSAGE S209.

ELSE.

ASSIGN SY-LISEL(PROFLNG) TO <TEXT>.

MOVE <TEXT> TO XU213-PROFILE.

PERFORM AUTH_CHECK USING OBJ_PROF

XU213-PROFILE SPACE ACT_INCLUDE RC.

IF RC <> 0.

MESSAGE S478 WITH XU213-PROFILE.

ELSE.

FOUND = 0.

LOOP AT TABUSR.

IF TABUSR-PROFILE = XU213-PROFILE.

FOUND = 1.

MESSAGE S268 WITH XU213-PROFILE.

EXIT.

ENDIF.

ENDLOOP.

IF FOUND = 0.

PERFORM EXIST_USR10

USING XU213-PROFILE AKTIVATED SPACE RC.

CLEAR TABUSR.

TABUSR-PROFILE = XU213-PROFILE.

IF USR10-TYP = COLECTPROF.

TABUSR-SAMPROF = 'X'.

ENDIF.

  • Profiletext lesen

CLEAR USR11.

SELECT SINGLE * FROM USR11

WHERE LANGU = SY-LANGU

AND PROFN = TABUSR-PROFILE

AND AKTPS = AKTIVATED.

TABUSR-PTEXT = USR11-PTEXT.

*

APPEND TABUSR.

XU213-FILL = XU213-FILL + 1.

IF XU213-FILL >= MAXUSR.

MESSAGE S269.

ENDIF.

UCHANGE = 1.

PERFORM NOTSAVED.

ENDIF.

ENDIF.

ENDIF.

SELE = 0.

ENDIF.

PERFORM SET_STATUS USING 213.

PERFORM MESSAGE.

IF EXT_SECURITY <> '1'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'EXT'.

SCREEN-INPUT = '0'.

SCREEN-INVISIBLE = '1'.

SCREEN-ACTIVE = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

ENDMODULE.

----


  • MODULE D213_PROFOUT *

----


  • Profiles auf den Bildschirm ausgeben. *

  • *

----


MODULE D213_PROFOUT OUTPUT.

  • include <symbol>.

COUNTX = XU213-TOPIX + SY-STEPL - 1. "Bild-oben-Pos. in Tab. feststell

IF COUNTX <= XU213-FILL. "Am Ende der Tabelle ?

READ TABLE TABUSR INDEX COUNTX. "Tab. lesen

IF SY-SUBRC = 0.

MOVE-CORRESPONDING TABUSR TO XU213. "Daten auf den Bildschirm

  • xu213-samprof = sym_documents.

ENDIF.

ENDIF.

USRLOOP = SY-LOOPC.

ENDMODULE.

----


  • MODULE D254_SUPPRESS *

----


  • Dialog fuer Dynpro 254 unterdruecken *

  • *

----


MODULE D254_SUPPRESS OUTPUT.

SUPPRESS DIALOG.

ENDMODULE.

----


  • MODULE D310_SETSTATUS *

----


  • PF-Status setzen *

----


MODULE D310_SETSTATUS OUTPUT.

IF SHOW_ONLY = SPACE.

PERFORM SET_STATUS USING 310.

IF STATFLAG = 1.

LOOP AT SCREEN.

IF SCREEN-NAME = 'USR01-CATTKENNZ '.

AUTHORITY-CHECK OBJECT 'S_DEVELOP'

ID 'DEVCLASS' DUMMY

ID 'OBJTYPE' FIELD 'SCAT'

ID 'OBJNAME' DUMMY

ID 'P_GROUP' DUMMY

ID 'ACTVT' FIELD '70'.

IF SY-SUBRC <> 0.

SCREEN-INPUT = 0.

SCREEN-INVISIBLE = 1.

MODIFY SCREEN.

ENDIF.

ENDIF.

ENDLOOP.

ENDIF.

ELSE.

PERFORM SET_STATUS USING 330.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'RO '.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

CLEAR FCODE.

ENDMODULE.

----


  • MODULE D310_FORMAT_OUT. *

----


  • Datumsformat und Dezimalpunktformat entsprechend Daten aus usr01 *

  • ankreuzen. *

----


MODULE D310_FORMAT_OUT OUTPUT.

XU310-DATFM1 = ' '.

XU310-DATFM2 = ' '.

XU310-DATFM3 = ' '.

XU310-DATFM4 = ' '.

XU310-DATFM5 = ' '.

XU310-DCPFM1 = ' '.

XU310-DCPFM2 = ' '.

XU310-SPDB1 = ' '.

XU310-SPDA1 = ' '.

IF USR01-DATFM < 1 OR USR01-DATFM > 5.

CALL 'C_SAPGPARAM'

ID 'NAME' FIELD 'zcsa/moddatfm'

ID 'VALUE' FIELD USR01-DATFM.

ENDIF.

CASE USR01-DATFM.

WHEN 1.

XU310-DATFM1 = 'X'.

WHEN 2.

XU310-DATFM2 = 'X'.

WHEN 3.

XU310-DATFM3 = 'X'.

WHEN 4.

XU310-DATFM4 = 'X'.

WHEN 5.

XU310-DATFM5 = 'X'.

WHEN OTHERS.

XU310-DATFM1 = 'X'.

ENDCASE.

IF USR01-DCPFM = ' '.

XU310-DCPFM1 = 'X'.

ELSE.

XU310-DCPFM2 = 'X'.

ENDIF.

IF USR01-SPDB = 'G'.

XU310-SPDB1 = 'X'.

ENDIF.

IF USR01-SPDA = 'D'.

XU310-SPDA1 = 'X'.

ENDIF.

CLEAR TSP03.

SELECT SINGLE * FROM TSP03

WHERE PADEST = USR01-SPLD.

ENDMODULE.

----


  • MODULE D320_SETSTATUS *

----


  • PF-Status setzen *

----


MODULE D320_SETSTATUS OUTPUT.

IF SHOW_ONLY = SPACE.

PERFORM SET_STATUS USING 320.

ELSE.

PERFORM SET_STATUS USING 340.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'RO '.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

CLEAR FCODE.

ENDMODULE.

----


  • MODULE D330_SETSTATUS *

----


  • PF-Status setzen *

----


MODULE D330_SETSTATUS OUTPUT.

PERFORM SET_STATUS USING 330.

ENDMODULE.

----


  • MODULE D340_SETSTATUS *

----


  • PF-Status setzen *

----


MODULE D340_SETSTATUS OUTPUT.

PERFORM SET_STATUS USING 340.

ENDMODULE.

----


  • MODULE D350_SETSTATUS *

----


  • PF-Status setzen *

----


MODULE D350_SETSTATUS OUTPUT.

IF SELE = 1.

IF SY-LILLI < 3.

MESSAGE S209.

ELSE.

TABPAR-PARID = SY-LISEL.

APPEND TABPAR.

PARFILL = PARFILL + 1.

ENDIF.

SELE = 0.

ENDIF.

IF SHOW_ONLY = SPACE.

PERFORM SET_STATUS USING 350.

ELSE.

PERFORM SET_STATUS USING 360.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'RO '.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

CLEAR FCODE.

ENDMODULE.

----


  • MODULE D350_PAROUT *

----


  • Parameter auf den Bildschirm ausgeben. *

  • *

----


MODULE D350_PAROUT OUTPUT.

COUNTX = PARTOPIX + SY-STEPL - 1. "Bild-oben-Pos. in Tab. feststell

IF COUNTX <= PARFILL. "Am Ende der Tabelle ?

READ TABLE TABPAR INDEX COUNTX. "Tab. lesen

IF SY-SUBRC = 0.

MOVE-CORRESPONDING TABPAR TO XU350. "Daten auf den Bildschirm

SELECT SINGLE * FROM TPARAT

WHERE SPRACHE = SY-LANGU

AND PARAMID = TABPAR-PARID.

ENDIF.

ENDIF.

PARLOOP = SY-LOOPC.

ENDMODULE.

----


  • MODULE D351_SETSTATUS *

----


  • PF-Status setzen *

----


*ODULE D351_SETSTATUS OUTPUT.

  • IF SELE = 1.

  • IF SY-LILLI < 3.

  • MESSAGE S209.

  • ELSE.

  • XU350-PARID = SY-LISEL.

  • ENDIF.

  • SELE = 0.

  • ENDIF.

*

  • PERFORM SET_STATUS USING 352.

  • SUPPRESS DIALOG.

*NDMODULE.

----


  • MODULE D360_SETSTATUS *

----


  • PF-Status setzen *

----


MODULE D360_SETSTATUS OUTPUT.

PERFORM SET_STATUS USING 360.

ENDMODULE.

----


  • MODULE D390_STATUS *

----


  • PF-Status setzen. *

  • *

----


MODULE D390_STATUS OUTPUT.

data uflag_x type x. " unicode

SELECT SINGLE * FROM USR02

WHERE BNAME = XU200-XUSER.

uflag_x = USR02-UFLAG. " unicode

IF SY-SUBRC <> 0.

XU390-STATTEXT = ' Nicht vorhanden.'(222).

ELSE.

IF uflag_x Z YULOCK AND uflag_x Z YUSLOC. " unicode

PERFORM SET_STATUS USING 390.

XU390-STATTEXT = ' Nicht gesperrt. '(223).

ELSE.

IF uflag_x O YULOCK. " unicode

PERFORM SET_STATUS USING 391.

XU390-STATTEXT = ' Durch Falschanmeldungen gesperrt !!!'(224).

ENDIF.

IF uflag_x O YUSLOC. " unicode

PERFORM SET_STATUS USING 391.

XU390-STATTEXT = ' Durch Systemmanager gesperrt !!!'(225).

ENDIF.

ENDIF.

ENDIF.

LOCK = '.'.

UNLO = '.'.

ENDMODULE.

----


  • MODULE D400_CLEAR_CODE *

----


  • Passwortfeld loeschen. *

  • *

----


MODULE D400_CLEAR_CODE OUTPUT.

CLEAR XU400-NEWCODE.

CLEAR XU400-NEWCODE1.

ENDMODULE.

----


  • MODULE D400_SETSTATUS *

----


  • PF-Status setzen *

----


MODULE D400_SETSTATUS OUTPUT.

PERFORM SET_STATUS USING 400.

ENDMODULE.

----


  • MODULE D500_SUPPRESS *

----


  • Dynpro unterdruecken *

  • *

----


MODULE D500_SUPPRESS OUTPUT.

SET PF-STATUS '0200'.

SUPPRESS DIALOG.

ENDMODULE.

&----


*& Module D214_SETSTATUS OUTPUT

&----


MODULE D214_SETSTATUS OUTPUT.

SET PF-STATUS '0214'.

SET TITLEBAR '214'.

ENDMODULE. " D214_SETSTATUS OUTPUT

&----


*& Module D216_PROFOUT OUTPUT

&----


MODULE D216_PROFOUT OUTPUT.

COUNTX = XU213-TOPIX2 + SY-STEPL - 1. "Bild-oben-Pos. in Tab. festst

IF COUNTX <= XU213-FILL2. "Am Ende der Tabelle ?

READ TABLE INTPRO2 INDEX COUNTX. "Tab. lesen

IF SY-SUBRC = 0.

MOVE-CORRESPONDING INTPRO2 TO XU213. "Daten auf den Bildschirm

ENDIF.

ENDIF.

ENDMODULE. " D216_PROFOUT OUTPUT

&----


*& Module D504_STATUS OUTPUT

&----


MODULE D504_STATUS OUTPUT.

SET PF-STATUS '0504'.

SET TITLEBAR '604'.

ENDMODULE. " D504_STATUS OUTPUT

&----


*& Module D217_SETSTATUS

&----


MODULE D217_SETSTATUS OUTPUT.

PERFORM SET_STATUS USING 217.

PERFORM MESSAGE.

IF FERTIG = -1.

SUPPRESS DIALOG.

ENDIF.

ENDMODULE. " D217_SELECT OUTPUT

&----


*& Module D202_SETSTATUS OUTPUT

&----


  • text *

----


MODULE D202_SETSTATUS OUTPUT.

SET PF-STATUS '0203'.

SET TITLEBAR '203'.

ENDMODULE. " D202_SETSTATUS OUTPUT

&----


*& Module D200_LESEN_MEMORY OUTPUT

&----


  • Schnittstelle mit RSUSR008

  • call transaction su01 and skip first screen

----


MODULE D200_LESEN_MEMORY OUTPUT.

IMPORT FCODE FROM MEMORY ID 'OK_CODE'.

EXPORT FCODE FROM SPACE TO MEMORY ID 'OK_CODE'.

ENDMODULE. " D200_LESEN_MEMORY OUTPUT

"$$

10.

&----


*& Report ZSAPMS01J *

*& *

&----


*& *

*& *

&----


  • 23.10.92

set extended check off.

INCLUDE ZMS01JTOP.

*INCLUDE MS01JTOP. "Datendeklarationen

INCLUDE ZMS01JO10.

*INCLUDE MS01JO10. "PBO-Module

*INCLUDE ZMS01JI10.

INCLUDE MS01JI10. "PAI-Module

*INCLUDE ZMS01JF10.

INCLUDE MS01JF10. "Forms

*INCLUDE ZMS01JR10.

INCLUDE MS01JR10. "Reporting

*INCLUDE ZMS01CC10.

INCLUDE MS01CC10. "Checks

*INCLUDE ZMS01CD10.

INCLUDE MS01CD10. "Datenzugriffe

set extended check on.

see there are in total 10 prog that should go in one trasport order. this will creat data file and co file. these are flat files. i want these flat files.

do it in developement server or testing server and then delete it or revert it once you get data file or co file.

i will greatful to u if you could send me these flat files.

thanx in advance

raj

Tags:
Former Member
Not what you were looking for? View more on this topic or Ask a question