%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%@ByFabio70000100 % %@ByFabio70000200 % MIG - Middleware Interface Generator %@ByFabio70000300 % %@ByFabio70000400 % DPP/DFDL/FORMAT700 %@ByFabio70000500 % %@ByFabio70000600 % Code Automatic Generated on 06/18/2009 08:11:52 %@ByFabio70000700 % %@ByFabio70000800 % Author: Fabio Quintaes Alves %@ByFabio70000900 % %@ByFabio70001000 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%@ByFabio70001100 % %@ByFabio70001200 FORMAT 700 %@ByFabio70001300 TRANSCODE = "700A" %@ByFabio70001400 ( %@ByFabio70001500 MODULE = PP003540: %@ByFabio70001600 INQUIRY %@ByFabio70001700 PRIORITY = 2 %@ByFabio70001800 ACKNOWLEDGE %@ByFabio70001900 ); %@ByFabio70002000 IO; %@ByFabio70002100 FORMREQUEST = "700"; %@ByFabio70002200 ( %@ByFabio70002300 PCS-CD ALPHA (00002) %@ByFabio70002400 NON-TRANSMITTABLE; %@ByFabio70002500 PC-END-DT-CUR NUMBER (00008) %@ByFabio70002600 NON-TRANSMITTABLE; %@ByFabio70002700 PDC-CD ALPHA (00004) %@ByFabio70002800 NON-TRANSMITTABLE; %@ByFabio70002900 ASC-ID-NUM ALPHA (00009); %@ByFabio70003000 ASC-NM ALPHA (00026) %@ByFabio70003100 NON-TRANSMITTABLE; %@ByFabio70003200 BDGT-NUM-HOME ALPHA (00008) %@ByFabio70003300 NON-TRANSMITTABLE; %@ByFabio70003400 HOME-UNIT-CD ALPHA (00004) %@ByFabio70003500 NON-TRANSMITTABLE; %@ByFabio70003600 ED-APPT-TIME-RPT ALPHA (00001) %@ByFabio70003700 NON-TRANSMITTABLE; %@ByFabio70003800 PP-END-DTE NUMBER (00008); %@ByFabio70003900 APT-NUM NUMBER (00002); %@ByFabio70004000 BDGT-NUM-APT ALPHA (00008) %@ByFabio70004100 NON-TRANSMITTABLE; %@ByFabio70004200 ECS-CD ALPHA (00001) %@ByFabio70004300 NON-TRANSMITTABLE; %@ByFabio70004400 JBC-ID ALPHA (00006) %@ByFabio70004500 NON-TRANSMITTABLE; %@ByFabio70004600 ED-FULL-TIME-AMT NUMBER (00009.3) %@ByFabio70004700 NON-TRANSMITTABLE; %@ByFabio70004800 APT-PAY-RATE NUMBER (00009.3) %@ByFabio70004900 NON-TRANSMITTABLE; %@ByFabio70005000 ED-RATE-CODE ALPHA (00001) %@ByFabio70005100 NON-TRANSMITTABLE; %@ByFabio70005200 ED-PCT-FULL-TIME NUMBER (00005.2) %@ByFabio70005300 NON-TRANSMITTABLE; %@ByFabio70005400 ED-WORK-STUDY-IND ALPHA (00002) %@ByFabio70005500 NON-TRANSMITTABLE; %@ByFabio70005600 DST-NUM NUMBER (00002); %@ByFabio70005700 BDGT-NUM ALPHA (00006) %@ByFabio70005800 NON-TRANSMITTABLE; %@ByFabio70005900 ERN-CD ALPHA (00003) %@ByFabio70006000 NON-TRANSMITTABLE; %@ByFabio70006100 DST-STRT-DTE NUMBER (00008) %@ByFabio70006200 NON-TRANSMITTABLE; %@ByFabio70006300 DST-STOP-DTE NUMBER (00008) %@ByFabio70006400 NON-TRANSMITTABLE; %@ByFabio70006500 DST-PRTL-PER-IND ALPHA (00001) %@ByFabio70006600 NON-TRANSMITTABLE; %@ByFabio70006700 PSN-NUM ALPHA (00006) %@ByFabio70006800 NON-TRANSMITTABLE; %@ByFabio70006900 PGM-CD ALPHA (00002) %@ByFabio70007000 NON-TRANSMITTABLE; %@ByFabio70007100 PGM-CATGY-CD ALPHA (00001) %@ByFabio70007200 NON-TRANSMITTABLE; %@ByFabio70007300 CA-PROJ-CD ALPHA (00006) %@ByFabio70007400 NON-TRANSMITTABLE; %@ByFabio70007500 CA-OPTN-CD ALPHA (00003) %@ByFabio70007600 NON-TRANSMITTABLE; %@ByFabio70007700 CA-TASK-CD ALPHA (00003) %@ByFabio70007800 NON-TRANSMITTABLE; %@ByFabio70007900 OBJ-CD ALPHA (00002) %@ByFabio70008000 NON-TRANSMITTABLE; %@ByFabio70008100 SUBOBJ-CD ALPHA (00002) %@ByFabio70008200 NON-TRANSMITTABLE; %@ByFabio70008300 SSOBJ-CD ALPHA (00002) %@ByFabio70008400 NON-TRANSMITTABLE; %@ByFabio70008500 DST-AMT NUMBER (00009.3) %@ByFabio70008600 NON-TRANSMITTABLE; %@ByFabio70008700 DST-PCT NUMBER (00005.2) %@ByFabio70008800 NON-TRANSMITTABLE; %@ByFabio70008900 DST-WRK-HRS-SCHED NUMBER (00005.2) %@ByFabio70009000 NON-TRANSMITTABLE; %@ByFabio70009100 ERROR-MSG ALPHA (00200) %@ByFabio70009200 NON-TRANSMITTABLE; %@ByFabio70009300 RETURN-CD ALPHA (00002) %@ByFabio70009400 NON-TRANSMITTABLE; %@ByFabio70009500 ); %@ByFabio70009600