After calling the RFCs under a queue, the next commit work statement closes the current LUW and opens a new one. Here we have the report.. Execute it.
------------------------------------------------------------------------------------------------------------------------
DATA ls TYPE scarr.
*** first queue *****
CALL FUNCTION 'TRFC_SET_QIN_PROPERTIES'
EXPORTING
qout_name = 'OUT_QUEUE1'
qin_name = 'INN_QUEUE1'.
clear ls.
ls-carrid = 'XX'.
CALL FUNCTION 'ZCREATE_FLIGHT_REC'
IN BACKGROUND TASK
"AS SEPARATE UNIT " creates a separate luw
DESTINATION 'SRC_TO_TGT'
EXPORTING
is = ls.
CALL FUNCTION 'TRFC_SET_QIN_PROPERTIES'
EXPORTING
qout_name = 'OUT_QUEUE1'
qin_name = 'INN_QUEUE1'.
CLEAR ls.
ls-carrid = 'XX'.
ls-carrname = 'XX AIRLINE'.
CALL FUNCTION 'ZUPDATE_FLIGHT_REC'
IN BACKGROUND TASK
"AS SEPARATE UNIT " creates a separate luw
DESTINATION 'SRC_TO_TGT'
EXPORTING
is = ls.
COMMIT WORK. " End of first LUW
*** Second queue ***
CALL FUNCTION 'TRFC_SET_QIN_PROPERTIES'
EXPORTING
qout_name = 'OUT_QUEUE2'
qin_name = 'INN_QUEUE2'.
clear ls.
ls-carrid = 'YY'.
CALL FUNCTION 'ZCREATE_FLIGHT_REC'
IN BACKGROUND TASK
"AS SEPARATE UNIT " creates a separate luw
DESTINATION 'SRC_TO_TGT'
EXPORTING
is = ls.
CALL FUNCTION 'TRFC_SET_QIN_PROPERTIES'
EXPORTING
qout_name = 'OUT_QUEUE2'
qin_name = 'INN_QUEUE2'.
CLEAR ls.
ls-carrid = 'YY'.
ls-carrname = 'YY AIRLINE'.
CALL FUNCTION 'ZUPDATE_FLIGHT_REC'
IN BACKGROUND TASK
"AS SEPARATE UNIT " creates a separate luw
DESTINATION 'SRC_TO_TGT'
EXPORTING
is = ls.
COMMIT WORK. " end of second LUW
WRITE :/ 'Check outbound queues in source system in Tx- SMQS'.
WRITE :/ 'Check Inbound queues in target system in Tx- SMQR'.
Step3. Source System: Tx- SMQR( Out Bound Scheduler). Select both the queues and double click on it.
Step4. Source System: Double click on the queue name.
Step5. Source System: So here we have two LUWs for two Queues. Process the queues.
Step6. Target System: Tx- SMQS( Inbound Scheduler). The snap shot of comparison of the TIDs.
------------------------------------------------------------------------------------------------------------------------
DATA ls TYPE scarr.
*** first queue *****
CALL FUNCTION 'TRFC_SET_QIN_PROPERTIES'
EXPORTING
qout_name = 'OUT_QUEUE1'
qin_name = 'INN_QUEUE1'.
clear ls.
ls-carrid = 'XX'.
CALL FUNCTION 'ZCREATE_FLIGHT_REC'
IN BACKGROUND TASK
"AS SEPARATE UNIT " creates a separate luw
DESTINATION 'SRC_TO_TGT'
EXPORTING
is = ls.
CALL FUNCTION 'TRFC_SET_QIN_PROPERTIES'
EXPORTING
qout_name = 'OUT_QUEUE1'
qin_name = 'INN_QUEUE1'.
CLEAR ls.
ls-carrid = 'XX'.
ls-carrname = 'XX AIRLINE'.
CALL FUNCTION 'ZUPDATE_FLIGHT_REC'
IN BACKGROUND TASK
"AS SEPARATE UNIT " creates a separate luw
DESTINATION 'SRC_TO_TGT'
EXPORTING
is = ls.
COMMIT WORK. " End of first LUW
*** Second queue ***
CALL FUNCTION 'TRFC_SET_QIN_PROPERTIES'
EXPORTING
qout_name = 'OUT_QUEUE2'
qin_name = 'INN_QUEUE2'.
clear ls.
ls-carrid = 'YY'.
CALL FUNCTION 'ZCREATE_FLIGHT_REC'
IN BACKGROUND TASK
"AS SEPARATE UNIT " creates a separate luw
DESTINATION 'SRC_TO_TGT'
EXPORTING
is = ls.
CALL FUNCTION 'TRFC_SET_QIN_PROPERTIES'
EXPORTING
qout_name = 'OUT_QUEUE2'
qin_name = 'INN_QUEUE2'.
CLEAR ls.
ls-carrid = 'YY'.
ls-carrname = 'YY AIRLINE'.
CALL FUNCTION 'ZUPDATE_FLIGHT_REC'
IN BACKGROUND TASK
"AS SEPARATE UNIT " creates a separate luw
DESTINATION 'SRC_TO_TGT'
EXPORTING
is = ls.
COMMIT WORK. " end of second LUW
WRITE :/ 'Check outbound queues in source system in Tx- SMQS'.
WRITE :/ 'Check Inbound queues in target system in Tx- SMQR'.
-----------------------------------------------------------------------------------------------------------------------------------
Step2. Here we have the report output.
Step3. Source System: Tx- SMQR( Out Bound Scheduler). Select both the queues and double click on it.
Step4. Source System: Double click on the queue name.
Step5. Source System: So here we have two LUWs for two Queues. Process the queues.
Step6. Target System: Tx- SMQS( Inbound Scheduler). The snap shot of comparison of the TIDs.
No comments:
Post a Comment